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Preface 


This publication describes the programs that handle the following TSO commands: 


ALLOCATE LISTALC RENAME 

ATTRIB LISTBC RUN 

CALL LISTDS SEND 

CANCEL/STATUS OPERATOR SUBMIT 

EXEC OUTPUT TERMINAL 

FREE PROFILE TIME 

HELP PROTECT WHEN/END 

L1NK/LOADGO 


In addition, LOGON Scheduling information is included. 

DELETE and LISTCAT information is in Access Method Services Lope. 

This publication describes program internal logic and organization. It is designed 
to help the programmer follow the internal operation of a program and determine 
the location of a program malfunction. The book provides pointers for specific 
functions; the programmer can use these pointers to access program listing 
information without having to scan the listings for the data he wants. 

The commands are described through the use of Method of Operation Diagrams, 
a Directory, and a Data Area Usage chart. 

The Directory contains a module cross reference for all of the commands 
described in this book. It cross references load module, object module, entry point, 
alias, and command name. 


The Data Area Usage chart is organized by the data area acronym. The macro 
name and common name are also listed. Under each data name is a list of modules, 
by command processbr, that alter or create the data area. 

Data area descriptions can be found in Data Areas. The diagnostic aid 
description of the TSO terminal messages can be found in Message Library: TSO 
Terminal Messages. 


Note that the titles for the TSO library for MVS/XA begin with the “MVS/ 
Extended Architecture” system prefix. 
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Associated Publications 

MVS/Extended Architecture TSO Terminal Monitor Program and Service Routines 
Logic 

(0S/VS2 TSO Terminal Monitor Program and Service Routines Logic, 
SY28-0650-3, as amended by Supplement LD23-0262) 

MVS/Extended Architecture TSO Command Processor Logic Volume I: ACCOUNT 
(0S/VS2 TSO Command Processor Logic Volume I: ACCOUNT, SY28-0651-2, as 
amended by Supplement LD23-0270) 

MVS/Extended Architecture TSO Command Processor Logic Volume II: EDIT 
(0S/VS2 TSO Command Processor Logic Volume II: EDIT, SY33-8548-3, as 
amended by Supplement LD23-0271) 

Data Areas 

(For MVS/SP - JES2 Version 2, LYB8-1191) 

(For MVS/SP - JES3 Version 2, LYB8-1195) 

Macro Usage Table 

(For MVS/SP - JES2 Version 2, LYB8-1193) 

(For MVS/SP-JES3 Version 2, LYB8-1197) 

Symbol Usage Table 

(For MVS/SP - JES2 Version 2, LYB8-1192) 
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Referenced Products 

1. All references to MVS System Product indicate either 0S/VS2 MVS/System 
Product JES3 (5740-XYN) or 0S/VS2 MVS/System Product JES2 (5740-XYS) 
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Summary of Amendments 
for SY28-0652-4 
as Updated March 1,1985 
by Supplement SD23-0299 

This supplement was reissued because of the major revision to base SY28-0652. The parallel 
TMP structure does not apply to the MVS/XA environment without TSO/E. 


Summary of Amendments 
for SY28-0652-2 
as Updated January 14,1983 
by Supplement LD23-0273-0 


This supplement supports MVS System Product Version 2. A note has been added to LINK 
and LOADGO commands to remind readers of the AMODE and RMODE operands available 
under MVS/Extended Architecture. 


Summary of Amendments 
for SY28-0652-3 
as Updated by SN28-4928 
OS/VS2 Release 3.8 

This technical newsletter incorporates information for LOGON Scheduling. 


Summary of Amendments 9 
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Introduction 


This section contains infonnation on processing that is 
common to all the TSO command processors. 

Tenniiiai Monitor Program 

The Terminal Monitor Program (TMP) handles the 
interfaces between a terminal user and a command 
processor. The TMP runs under the control program as 
a subtask of (is ATTACHed by) the TSO 
LOGON/LOGOFF Scheduler (via the Job Scheduling 
Subroutine). 

Before the TMP in turn attaches its own subtasks 
(Le., command processors), it: 

• Constructs and initializes the data areas it requires. 

• Loads the TIME command processor. 

• Sets up ESTAE and ESTAI exits. 

• Sets up attention interruption exits. 

• Initializes the input stack with a terminal element. 

• Issues the EXTRACT macro instruction to obtain 
pointers to both the STOP/MODIFY ECB and to the 
Protected Step Control Block (PSCB) that is built by 
the LOGON/LOGOFF scheduler. 

• Informs the terminal it is ‘ready’ for a command. 

When a command processor completes its processing, 
control is returned to the TMP. For more information on 
the TMP, please refer to TSO Terminal Monitor 
Program and Service Routines Logic. 


Service Routines 

There are a number of service routines used selectively 
by the different command processor packages. These 
service routines, which are also used by die TMP (unless 
otherwise noted), include: 

• GETLINE, which obtains a line of input from an area 
defined as its source of input Normally, this area 
contains input from the terminal. 

• PUTLINE, which sends a line of output to the 
terminal. 

• PUTGET, which sends a line of output to the terminal 
and waits for a line of input as a response. 

• STACK, which establishes the source of input as a 
terminal; or (if not from a terminal) which places 
lines of input into areas from which GETLINE or 
PUTGET can obtain data. 

• Command Scan, which checks the syntax of 
designated data to see if it is syntactically valid. 

• Parse (IKJPARS) (not used by the TMP), which 
checks the syntax of parameters of TSO commands. 

In certain cases. Parse is directed to take exits to 
validity checking routines (provided by the 
processors). The validity checking routines are 
designed to dynamically assist the parse operation in 
providing valid input to the command or 
subcommand processor. 

• Dynamic Allocation Interface Routine (IKJDAIR) 
(not used by the TMP), which provides information 
to the control program dynamic allocation routines. 

In turn, these routines allocate, free, and concatenate 
data sets that relate to a TSO session. 

| These service routines are documented in full in TSO 
Terminal Monitor Program and Service Routines Lope. 


Introduction 
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Attention Interruptions 

When an attention intemipt has been entered at a 
terminal, an attention interrupt exit routine will receive 
control If a command processor is interrupted, control 
will pass to the command processor’s attention exit 
routine, if one exists. If not, then control will pass to 
the TMP’s attention exit routine. 

TMP Attention Exit Routine 

The TMP issues the STAX macro during initialization to 
place an entry in a control program queue called the Task 
Attention Interrupt Exit queue. When the attention key 
is struck during subsequent processing, the control 
program attention interruption handling routines check 
the queue, put out the mode message, and pass control 
to the Attention Exit routine at the address provided 
through the STAX macro (after obtaining input from 
the terminal). 

The Attention Exit routine issues a PUTGET macro 
instruction to obtain the input following the attention. 
Action is taken according to the type of input found, as 
follows: 

New command found 

all previous entries are deleted from the input stack. 
Control then returns to the TMP where the old 
command processor is detached and the new one 
attached. 

Null line 

control returns immediately to the task that was 
operating when the attention key was struck. No 
ECB is posted. No stack entries are deleted. 

? 

a PUT LINE exit is taken to put out second-level 
messages, if any. (If none, a NO INFORMATION 
AVAILABLE message is issued.) Then, the TMP 
Attention Exit routine looks for a new command or 
a null line as input. Then processing is performed as 
for the applicable input type above. 

Time command 

the TIME command processor receives control. Upon 
completion, TIME returns control to the TMP 
Attention Exit routine, which then looks for either a 
new command, or a null line, as input. 

I 


ABEND Processing 

When the TMP issues the ATTACH macro to activate a 
command processor as a subtask, the ESTAI operand is 
included as part of the ATTACH macro. The ESTAI 
operand specifies the address of the TMP’s ESTAE Exit 
routine. The main purpose of the ESTAI Exit routine — 
in the command processor environment — is to intercept 
an ABEND and thereby retain processing control. When 

I a command processor experiences an ABEND, the TMP’s 
ESTAI Exit routine gets control to ensure the following: 

• The user is notified that his command processor has 
experienced an ABEND. 

• The READY message is issued. 

Action is taken according to the type of input found 
(as a response to the READY message), as follows: 

New command found (except TIME or TEST) 
the command processor that has experienced the 
ABEND is deleted via the DETACH macro, (thereby 
restricting the ABEND), and the new command 
processor is activated as a subtask. 

Null line 

control is returned to the point of interruption to 
allow the ABEND to process (a dump will occur if a 
SYSABEND or a SYSUDUMP has been specified on 
a DD Card). 

? 

the second level message containing the ABEND code 
is issued. The ESTAI Exit routine then looks for 
either a new command, or a null line, as input 
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TIME command 

the TIME command processor receives control. 

Upon completion, TIME returns control to ESTAI, 
which then looks for either a new command or a 
null line as input 

Error Termination Procedure 

When a command processor terminates with an error 
condition, the input stack is flushed (via the STACK 
service routine) and the terminal input queue is cleared 
(with the TCLEARQ macro instruction). 

Message Handling 

Most TSO command processors have message CSECTs. 
Hie address of a particular message is provided (by the 
command processor) to the PUTL1NE service routine — 
which writes the message to the terminal. 

A message can be either single or multi-level. Either 
type may require that PUTLINE insert variables (such as 
names, userids, etc.) to complete the message. 


LOGON Scheduling 

When a terminal user logs on or logs off TSO, the 
LOGON scheduling routines are invoked to handle the 
request. The routines interface with started task control 
(STC) and the TMP. 
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Diagram 1. Hierarchy of M.O. Diagrams (Part 1 of 3) 
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Diagram 1. Hierarchy of M.O. Diagrams (Part 3 of 3) 
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Diagram 1.1. ALLOCATE Command Processor Overview (Part 1 of 2) 


Input Process 







Diagram 1.1. ALLOCATE Command Processing Overview (Part 2 of 2) 


1 Check the ALLOCATE command for correct syntax. Invoke module 
IKJEFD37 to build a Parameter Control List (PCL). The PCL is passed 

to Parse which syntax checks the command and returns a Parameter Description 
List (PDL) with an entry for each parameter. 

2 Check for data set status parameters (OLD, SHR, MOD, NEW, or SYSOUT). If no 
status parameters were specified, set defaults or prompt user for status. 

3 Check the DATASET/DSNAME PDE for a list of data set names. 

• If there is no list of data set names, IKJEFD32 allocates a data set. (Types of 
data sets: Terminal, SYSOUT, OLD, SHR, NEW, MOD, DUMMY.) 

• If there is a list of data set names, concatenate the data set names to each 
other. 


Object Module: IKJEFD30 
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Diagram 1.2. ALLOCATE Terminal Processing (Parti of 2) 

Process 
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Diagram 1.2. ALLOCATE Terminal Processing (Part 2 of 2) 


1 Ignore all operands except DATASET/DSNAME, USING, FILE/DDNAME, 
and BLOCK/BLKSIZE. (The BLOCK/BLKSIZE parameter is processed by 
object module IKJEFD33.) 

2 Set up the text unit specifying terminal allocation. Use GENTRANS to translate 
the parameters to dynamic allocation text format. The pointer to the text units is 
returned from GENTRANS in the IKJZB831 parameter list. 

3 Use Dynamic Allocation to allocate the terminal. Register 1 points to a pointer to 
the dynamic allocation request block. 

4 Check the dynamic allocation return code. 

• If the return code is zero, the terminal has been allocated. 

• If the return code is 410, the file is in use. IKJEFD36 prompts the user to 
enter 'FREE', to free and reallocate the file, or 'END* to terminate the 
command. 

• If the return code is non-zero and not 410, allocation of a terminal has failed. 
IKJEFD35 uses DAIR failure message routine 1KJEFF18 to analyze the return 
code and send the appropriate error message to the user. 

Control is returned to IKJEFD30. 

Object Module: IKJEFD32 
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Diagram 1.3. ALLOCATE SYSOUT Data Set Processing (Parti of 2) 

Process 







Diagram 1 .3. ALLOCATE SYSOUT Data Set Processing (Part 2 of 2) 


1 Ignore the following operands: DATASET/DSN AM E, MSVGP, VOLUME, 
PRIVATE, LABEL, POSITION, MAXVOL, DIR, VSEQ, and disposition. 

(The BLOCK/BLKSIZE parameter is processed by object module IKJEFD33.) 

2 Set up the text unit specifying SYSOUT data set allocation if necessary. Use 
GENTRANS to translate the parameters to dynamic allocation text format. The 
pointer to the text units is returned from GENTRANS in the IKJZB831 param¬ 
eter list. 

3 Use Dynamic Allocation to allocate the SYSOUT data set. Register 1 points to a 
pointer to the dynamic allocation request block. 


4 Check the dynamic allocation return code. 

• If the return code is zero, the data set has been allocated. 

• If the return code is 410, the file is in use. IKJEFD36 prompts the user to 
enter 'FREE', to free and reallocate the file, or 'END' to terminate the 
command. 

• If the return code is non-zero and not 410, allocation of the SYSOUT data set 
has failed. IKJEFD35 uses DAIR failure message routine IKJEFF18 to analyze 
the return code and send the appropriate error message to the user. 

Control is returned to IKJEFD30. 


Object Module: IKJEFD32 
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Diagram 1 A. ALLOCATE OLD and SHR Data Set Processing (Part 2 of 2) 

1 Check for data set name on the DATASET/DSNAME keyword. If the name is 
missing use IKJEFD37 to prompt the user to supply one. 

2 Ignore the following operands: SPACE, DIR, HOLD/NOHOLD, DEST, 
RELEASE, ROUND, and BLOCK/BLKSIZE/AVBLOCK/TRACKS/CYLINDERS. 

3 Use GENTRANS to translate the parameters to dynamic allocation text format. 
The pointer to the text units is returned from GENTRANS in the IKJZB831 
parameter list. 

4 Use Dynamic Allocation to allocate the OLD or SHR data set. Register 1 points to 
a pointer to the dynamic allocation request block. 


5 Check the dynamic allocation return code. 

• If the return code is zero, the data set has been allocated. 

• If the return code is 410, the file is in use. IKJEFD36 prompts the user to 
enter 'FREE', to free and reallocate the file, or 'END' to terminate the 
command. 

• If the return code is 1708, the data set was not found. IKJEFD37 prompts the 
user for a new data set name. Repeat step 3,4, and 5. 

• If return code is non-zero and not 410 or 1708, allocation of the OLD or SHR 
data set has failed. IKJEFD35 uses the DAIR failure message routine 
IKJEFD18 to analyze the return code and send the appropriate error message 
to the user. 

Control is returned to IKJEFD30. 


Object Module: IKJEFD32 
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Diagram 1.5. ALLOCATE NEW Data Sets Processing (Part 2 of 2) 


1 Ignore the following operands: DEST and HOLO/NOHOLD. 

2 Use IKJEFD33 to process the SPACE, DIR, and block parameters. 

3 Use GENTRANS to translate the parameters to dynamic allocation text format. 

The pointer to the text units is returned from GENTRANS in the IKJZB831 

parameter list. 

4 Use Dynamic Allocation to allocate the NEW data set. Register 1 points to a 

pointer to the dynamic allocation request block. 

5 Check the dynamic allocation return code. 

• If the return code is zero, the data set has been allocated. 

• If the return code is 410, the file is in use. IKJEFD36 prompts the user to 
enter 'FREE', to free and reallocate the file, or 'END' to terminate the 
command. 

• If the return code is non-zero and not 410, allocation of the NEW data set has 
failed. IKJEFD35 uses the DAIR failure message routine IKJEFF18 to analyze 
the return code and send the appropriate error message to the user. 

Control is returned to IKJEFD30. 


Object Module: IKJEFD32 
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Diagram 1.6. ALLOCATE MOD Data Set Processing (Parti of 2) 

Process 




Diagram 1.6. ALLOCATE MOD Data Set Processing (Part 2 of 2) 


1 Check for data set name on the DATASET/DSNAME keyword. If the name is 
missing use IKJEFD37 to prompt the user to supply one. 

2 Use IKJEFD33 to process space parameters. 

3 Ignore the following operands: DEST and HOLD/NOHOLD. 

4 Use GENTRANS to translate the parameters to dynamic allocation text format. 
The pointer to the text units is returned from GENTRANS in the IKJZB831 
parameter list. 

5 Use Dynamic Allocation to allocate the MOD data set. Register 1 points to a 
pointer to the dynamic allocation request block. 


5 Check the Dynamic Allocation request code. 

o If the return code is zero, the data set has been allocated. 

o If the return code is 410, the file is in use. IKJEFD36 prompts the user to 
enter 'FREE', to reallocate the file, or 'END' to terminate the 
command. 

q If the return code is non-zero and not 410, allocation of the MOD data set 
failed. IKJEFD35 uses the DAIR failure message routine IKJEFF18 to analyze 
the return code and send the appropriate error message to the user. 

Control is returned to IKJEFD32. 

Object Module: IKJEFD32 
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Diagram 1.7. ALLOCATE DUMMY Request Processing (Part 1 of 2) 


Process 









Diagram 1.7. ALLOCATE DUMMY Request Processing (Part 2 of 2) 


1 Ignore all operands except DUMMY, FILE7DDNAME, BLOCK/BLKSIZE, AVBLOCK, 
TRACKS, CYLINDERS, and USING. 

2 Use IKJEFD33 to process the BLOCK/BLKSIZE parameter. 

3 Use GENTRANS to translate the parameters to dynamic allocation text format. 

The pointer to the text units is returned from GENTRANS in the IKJZB831 
parameter list. 

4 Use Dynamic Allocation to allocate the DUMMY request. Register 1 points to a 
pointer to the dynamic allocation request block. 

5 Check the dynamic allocation return code. 

• If the return code is zero, the DUMMY request has been allocated. 

• If the return code is 410, the file is in use. IKJEFD36 prompts the user to 
enter 'FREE', to free and reallocate the file, or 'END' to terminate the 
command. 

• If the return code is non-zero and not 410, allocation of the DUMMY request 
has failed. IKJEFD35 uses the DAIR failure message routine IKJEFF18 to 
analyze the return code and send the appropriate error message to the user. 

Control is returned to IKJEFD30. 


Object Module: IKJEFD32 
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£ Diagram 1.8. ALLOCATE Concatenate Data Set Processing (Parti of 2) 

Process 





Diagram 1.8. ALLOCATE Concatenate Data Set Names Processing (Part 2 of 2) 


1 Check for ddname on the FILE/DDNAME keyword. If the name is missing, use 
IKJEFD37 to prompt the user to supply one. 

2 Ignore all operands except DATASET/DSNAME, FILE/DDNAME, and STATUS. 

3 Provide the required amount of storage needed to save the ddnames. 

4 Provide text units for the ddname and the data set organization to be returned by 
Dynamic Allocation. 

5 Use GENTRANS to translate the parameters to dynamic allocation text format. 
The pointer to the text units is returned from GENTRANS in the IKJZB831 
parameter list. 


7 Use Dynamic Allocation to concatenate the data set names. 

8 Check the Dynamic Allocation return code. 

• If the return code is zero, the data set names have been concatenated. 

• If the return code is non-zero, concatenation of the data set names has failed. 
CONCTERR requests Dynamic Allocation to unallocate the data sets. 

Control is returned to IKJEFD30. 

Object Module: IKJEFD34 


0 Use CONCTDSN to request Dynamic Allocation to allocate all of the data sets in 
the list. 
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Dynamic Allocation 


IKJEFF18 







Diagram 2 . ATTRIB Command Processing (Part 2 of 2) 


*| Use Parse to scan and syntax check the command. For those operands Parse can 
not fully check (like LRECL), validity check exits in ATTRIB are used. The valid¬ 
ity check exit for the name uses Dynamic Allocation to check the validity of the 
attr-list-name. If Parse failed, (non-zero return code) an error message will be 
bsued and control is returned to the TMP. 

2 Use GENTRANS (IKJCB831) to translate the parameters from Parse output to 
text format. For those parameters which GENTRANS can not translate (DEN, 
DSORG, LRECL, EXPDT, and BUFOFF), ATTRIB builds the text units. If 
GENTRANS failed (non-zero return code), an error message is issued, Parse out¬ 
put is freed, and control is returned to the TMP. 


3 Use Dynamic Allocation to allocate a DUMMY request with the specified attrib¬ 
utes. 

4 Check the Dynamic Allocation return code. 

• If the return code is zero, the request has been allocated and control is 
returned to the TMP. 

f If the return code is non-zero, allocation has failed. Use the DAIRFAIL mes¬ 
sage routine IKJEFF18 to analyze the return code and send the appropriate 
error message to the user. Control is returned to the TMP. 


Object Module: IKJEFATT 
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Diagram 3. CALL Command Processing (Part I of 2) 


Input 


Process 
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Diagram 3. CALL Command Processing (Part 2 of 2) 
Extended Description 


1 IKJEFT08 uses Parse to scan and syntax check the command operands. Register 1 4 

points to the Parse parameter list (PPL). Upon return from Parse, IKJEFT08 

checks to see if a member name has been supplied. If not, it re-uses Parse to 
prompt the user to supply it. The operand information is placed in buffers. 

5 

2 IKJEFT08 examines the data set name supplied as an operand to the CALL 
processor, to see if it is fully qualified. If it is not, it appends the word '.LOAD' 

to the right of it. It then places the program member name, the password, if 6 

any, and a pointer to the fully qualified data set name in the DAIR parameter 
block for a data set (DAPB08). IKJEFT08 uses DAIR (Dyanamic Allocation 
Interface Routine). The X'0008' operation code in the first field of the DAPB08 
requests DAIR routine to allocate the data set to the user, if this has not 
previously been done. The remaining fields are either blanked out or set to zero. 

For further information about DAIR, see OS/VS2 Terminal Monitor Program 
and Service Routines Logic, 

3 If the DAIR return code indicates a not-found data set, IKJEFT08 notifies the 
user with a message. It then re-uses Parse to prompt the user to resupply the 
data set name. IKJEFT08 then re-uses DAIR after the user supplies a name. 


If any other non-zero return code is issued by DAIR, allocation failed. The 
DAIR Failure Message routine (IKJEFF18) analyzes DAIR's input and output 
and sends an appropriate message to the user. 

When DAIR is successful, IKJEFT08 moves theddname supplied by DAIR to 
the DCB for the requested data set, and opens the data set. 

IKJEFT08 issues a BLDL macro against the opened data set to verify the 
member name of the program to be attached. If the return code is a 4, (member 
name not found,) it uses Parse once more to prompt the user to resupply the 
member name. The BLDL macro is again issued to verify the newly supplied 
member name. 

7 Once the BLDL macro has successfully verified the program member name, an 
ATTACH macro is issued to attach and pass control to it. If a parameter list 
was supplied, it will be truncated if more than 100 characters. 

8 Upon completion of the attached program, IKJEFDOO releases all work and 
parameter areas and returns control to the TMP. 

Object Module: IKJEFT08 


As Updated March 1,1985 
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Diagram 4. CANCEL/STATUS Processing (Part 1 of 2) 


Input Process 



As Updated March 1,1985 
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Diagram 4. CANCEL/STATUS Processing (Part 2 of 2) 


1 Use SVC 100 to check the user's authorization to enter the command. Information 
is passed to SVC100 in the FIBPARMS parameter list. If the user is not authorized 
to enter the CANCEL or STATUS commands, an error message is issued and con* 
trol is returned to the TMP. 

Object Modules: IK JEFF58 (CANCEL), IKJEFF56 (CANCEL), /KJEFF56 
(STATUSL 

2 Use Parse to check the command syntax. 

For CANCEL, use the Parse validity check exit (IKJEFF49) to check the jobname 
or iobname (jobid) and the STATUS interface to the Job entry subsystem to valid¬ 
ity check the command. 

For STATUS, no exit is used. If no parameters were specified on the STATUS 
command, this step is skipped. 

Object Modules: IKJEFFSO (STATUS), IKJEFFS7 (CANCEL) 

3 Build a list of jobs from the names indicated on the STATUS or CANCEL 
command. 

Object Modules: IKJEFFSO, (STATUS), IKJEFFS7, (CANCEL) 


4 Use installation exit IKJEFF63 to validity check the list of jobs. 

For STATUS commands with no parameters, this step is skipped. 

For CANCEL commands, the IBM supplied exit will reject jobnames that are not 
userid plus one or more characters. 

Object Module: IKJEFFS1 

g Use the job entry subsystem to perform the required operation. Information is 
passed to the job entry subsystem via the SSOB parameter list. 

For CANCEL, use IKJEFF54 to request the job entry subsystem to cancel the 
requested jobs. 

For STATUS, use the job entry subsystem to return the status of the requested 
jobs. For a STATUS command with no operands, the subsystem uses the userid 
plus one character to search the system queues for a job name. 

Object Module: IKJEFFS2 


As Updated Match 1,1985 

By SuppL SD23-0299 for 5665-291, S740-XC6 
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EXEC Command Processing Operation 

EXEC command processing proceeds in separate 
operations known as Phase 1 and Phase 2. 

Phase 1 receives control from the TMP. The operation 
includes reading the CLIST records from the input data 
set, building the in-storage command procedure and the 
Symbolic Name and Symbolic Value tables, then 
placing the command procedure just built on the input 
Stack. Phase 1 is described in this publication. 

Phase 2, the statement executor, receives control 
from the GETLINE function of the I/O Service Routines 
as each record is removed from the command procedure 
(provided that the procedure was built by EXEC Phase 1) 
with a parameter list containing pointers to the UPT, 
the ECT, the ECB, and the GTPB. Phase 2 is described 
in OS/VS2 Terminal Monitor Program and Service 
Routines Logic. 

Phase 1 Processing 

Phase 1 processing is done either explicitly or 
implicitly. 

The explicit form is defined when the user enters 
‘EXEC’ with a data set name; optionally, a value list (in 
quotes); and options. EXEC will open the data set, 
explicitly named with the command, and read the 
records (PROC statement and commands) into storage. 

The implicit form is defined when the user enters 
only a member name (optionally preceded by a percent 
sign) of a partitioned command procedure library, 
optionally followed by a value list. However, the com¬ 
mand procedure library must have been previously 
allocated to the file name ‘SYSPROC’ prior to the 
implicit EXEC command. This could have been 
accomplished either by step allocation at LOGON time or 
or by using the TSO ALLOCATE command. When the 
user enters an implicit EXEC command without the 
percent sign, EXEC does not get control immediately; 
the TMP will go through its normal routine of attaching 
the implicit EXEC command as a TSO command, using 
the LINK library data sets. If ATTACH fails (806 
ABEND), the EXEC command is invoked implicitly, 
Optionally, the user can precede the implicit EXEC 
name with a percent sign which will signal the TMP 
to bypass the ATTACH or the LINK library data sets 
and to ATTACH the EXEC command implicitly. The 
EXEC command will use DAIR to determine if filename 
‘SYSPROC’ exists allocated. If there is no ‘SYSPROC’ 
data set allocated, the user gets “COMMAND name- 
entered NOT FOUND”; otherwise, the EXEC command 
will OPEN/FIND the member name specified. If the 
FIND fails, the message “COMMAND name-entered 
NOT FOUND” will be issued. If the FIND is successful. 


the records (PROC statement and Commands) in that 
member will be read into storage. If the EXEC command 
has been attached by another command as an implicit 
EXEC command and the member name entered could 
not be found as described by the two cases above, then 
the message will read “SUBCOMMAND name-entered 
NOT FOUND”. 

A STAE routine is established initially to prevent 
fragmenting subpool 78 storage in the event that EXEC 
ABENDS, by freeing any subpool 78 storage that had 
been explicitly gotten. 

The input data set is allocated using DAIR. If the 
invocation is explicit, EXEC will use the entry code for 
data set allocation. If the invocation is implicit, EXEC 
will use the entry code for Information Retrieval to 
determine if a command procedure library is presently 
allocated. 

The Dataset I/O function of the I/O Service Routines 
is utilized to read records from the input data set. The 
Service Routines will be loaded or addressed via a 
Resident Service Routine Vector table, if available, then 
GETLINE will be used for the input records. 

A set of control variables are defined and initialized 
for the immediate CLIST by placing the control 
variable names in the Symbolic Name table (SNTAB) 
and their values in the Symbolic Value table (SVTAB). 

A flag byte in the SNTAB defines the entry as a 
variable that can or can not be set by the user. 

If the first record is a PROC statement, all the 
symbolic parameters defined on the PROC statement 
are syntax checked. The EXEC command saves the 
names of the parameters in the Symbolic Name table 
and any default values in the Symbolic Value table 
located in subpool 78 storage. Next, the EXEC 
command will build a PCL dynamically based on the 
PROC statement definitions and then invoke Parse to 
syntax check any replacement values in the value list. 
Parse passes the values found in the value list back to 
EXEC, which updates the Symbolic Value table 
accordingly (updates positional parameters entries and 
replaces keyword default values with those specified by 
the user). 

After the Symbol Name and Value tables have been 
built, the EXEC command will get subpool 78 storage to 
construct the in-storage command procedure. Each 
record is then read from the input data set and identified 
(scanned to determine the command name and whether 
a label was present), and copied to the in-storage com¬ 
mand procedure. All CLIST statements are uniquely 
defined; any other statement is considered to be a TSO 
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command. Each in-storage command procedure record 
will have the following format: 


On Input: 


. No. of 

Bytes s 


In CP Storage: 


Q 

B 

0 

0 

02 

02 

Q 

CLIST 

PARMS 

Command 
& Text 

i 

2 

_2_ 

2 

1 

Variable 1 

Variable <4-1 


- 00 - 

Offset to start of 
command name 


<4- 0202 -*4 

Offset to start of symbolic 
substitution I 

- LL -► 

Total length of the record 


□ 


3 

□ 

Command & Text 



2 2 Variable 


00=0 


OC = Operation code defining the command; defined 
operation codes. 

Code Description 

00 TSO Command 

01 GOTO Statement 

02 IF Statement 

03 ELSE Statement 

04 WRITE Statement 

05 WRITENR Statement 

06 EXIT Statement 

07 DO Statement 

08 END Statement 

09 CONTROL Statement 

OA ERROR Statement 

OB TERMIN Statement 

OC READ Statement 

OD SET Statement 

OE RETURN Statement 

OF Internal GOTO Statement 

10 READDVAL Statement 

11 ATTN Statement 

12 OPENFILE Statement 

13 CLOSFILE Statement 

14 GETFILE Statement 

15 PUTFILE Statement 

FF Used internally to IKJCT432 for 

GLOBAL Statement 


CLIST PARMS - some of the CLIST statements will 
require immediate parsing or certain 
addresses to be preserved as the 
in-storage command procedure record 
is being constructed. This area contains 
information relevant to those CLIST 
statements. 

COMMAND TEXT - complete copy of the record 
as it was read from the CLIST data set. 

DATA/ENDDATA statements are not placed in the 
in-storage command procedure. Statements between 
DATA and ENDDATA statements are considered to 
be TSO commands and are not syntax checked for 
labels. 

GLOBAL statements are removed by the Phase 1 
EXEC command processing and are not placed in the 
in-storage command procedures. 

When all the records in the CLIST data set have been 
processed as described above, the STACK macro is used 
to place the command procedure on the input Stack 
using the EXEC option in the Stack interface. An 
existing but previously reserved field defined in the LSD 
will be utilized to address the EXEC data area, which 
will be used by EXEC Phase 2 to obtain the addresses of 
the Symbol Name and Value tables. This EXEC data 
area also will be used by the Stack service routine when 
removing and freeing the space occupied by this 
command procedure from the input Stack. 

The in-storage command procedure record will be 
different for each of the CLIST statements; however, all 
TSO commands will result in the same basic command 
procedure record. 

The following is a description of the processing that 
will occur, by command, as well as the description of 
each command CLIST PARMS Area; 

• The IF statement processing routine will be 

reentrant and will invoke the Command Identifica¬ 
tion process in IKJCT432 to identify the command 
following the THEN clause; the IF statement will 
be divided into two logical commands. The IF 
routine will now generate an internal GOTO with 
a four-byte address in the CLIST PARMS area of 
the next in-storage record to be created. Next, 
the CLIST PARMS area is updated with a four- 
byte address of the start of the false path. Next, 
the IF routine will get the next input record from 
the input CLIST data set and invoke the Com¬ 
mand Identification process to identify the 
record. This is done so that the correct relation¬ 
ship will exist for IF and ELSE statements (if the 
ELSE statement is used). Then, control is 
returned to EXEC mainline for processing of the 
next input CLIST record. 
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• The ELSE statement processing routine is 
reentrant and will verify that the input parameter 
list (IKJCT432) contains a flag indicating the 
ELSE statement processing was invoked by an IF 
statement; otherwise, the user has invalid syntax. 
The Command Identification process (IKJCT432) 
will be invoked to process the command 
following the ELSE: the ELSE statement is 
broken into two logical commands. Then the 
ELSE routine will update the address in the 
CLIST PARMS area of the internal GOTO prior to 
the ELSE in-storage record to the real end of the 
false path and return to EXEC mainline for 
processing of the next input record. 

• The DO statement processing routine is reentrant 
and will get a record from the input data set and 
invoke the Command Identification process in 
IKJCT432 as many times as necessary until an 
END or an alternate END is processed. The DO 
routine will set a flag byte in the CLIST PARMS 
area to indicate the presence of a WHILE operand. 
When the corresponding END has been processed 
and the matching DO statement contained a 
WHILE operand, an internal GOTO statement is 
generated with the address of the corresponding 
DO statement and the false path address in the 
CLIST PARMS area is updated with address of 
the next CLIST record to be created. No internal 
GOTO is generated if the DO statement had no 
WHILE operand. Control returns to EXEC 
mainline for processing of the next input record. 

• The ERROR and ATTN statement processing is 
reentrant and will invoke the Command 
Identification process (IKJCT432) to identify the 
command specified as the error action unless the 
OFF operand was present, or if no operands were 
found. When a command action is specified, the 
ERROR or ATTN statement will be broken into 


two logical in-storage Stack records; upon return 
from Command Identification, a 4-byte address 
in the CLIST PARMS area is initialized to the 
address of the next in-storage record to be created. 
A Flag byte in the CLIST PARMS area is used to 
indicate whether NO operands were found, OFF 
was specified, or a command was found. Then 
control returns to EXEC to process the next input 
record. 

The SET statements use four bytes in the CLIST 
PARMS area to store the address of the Symbolic Name 
Element for the symbolic parameter specified on the 
left of the equal sign. 

The READ and READDVAL statements use a 
variable amount of the CLIST PARMS area, depending 
on the number of symbolic parameters that have been 
specified. First are two bytes used as a counter, which 
will contain the number of symbolic parameters that 
were specified. Following the counter bytes is a four- 
byte entry for each symbolic parameter specified, which 
will contain the address of the corresponding element in 
the Symbolic Name table. 

The CONTROL statement uses two bytes of the 
CLIST PARMS area for a flag area. The flag bytes will 
contain indicators corresponding to the options specified 
on the CONTROL statement. When an alternate END 
was specified, the EXEC Phase 1 Common Data Area 
(ECDA) fields will be updated to reflect those changes. 

The Internal GOTO statement is used by the IF and 
DO statement processors for controlling the flow around 
false or conditional paths. It will use four bytes of the 
CLIST PARMS area to save the target address. 

The remainder of the statements have no CLIST 
PARMS information and pass control to a common 
in-storage stack build routine to place an op code in the 
command procedure record and return to EXEC Main 
Control. 
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Diagram 5.1. Phase 1 EXEC Command Main Control (IKJCT430) (Part 1 of 2) 


Input 


from TMP or 
from EDIT 
command 


Process 


CPPLPTR 


; CPPL _ 

f Command Buffer 
t UPT 

f PSCB _ 

t UPT 


Command Buffer _ 

llTooT Command Text 



1 Save address of Input parms, 
initialize work areas 

2 Establish STAE routine, 

3 Validity check command 
parameters. 

4 Allocate the input data set. 

5 a) Get a record from the 
input data set. 

b) Call IKJCT431 for the 
first input record. 

c) Get a record from the 
input data set. 

d) Call Record Scan routine. 

e) Repeat process 5c, d, e 
until end-of-file. 

0 Free unassigned subpool 78 
storage. 

7 Place the command procedure 
on the input stack. 

8 Return to caller. 


to Caller 


Notes - Global Name Table Pointer (GEXECDAT) initialized to SNTAB 
of previous nested level; if no previous nested level it is 
initialized to zero. 

- ERROR Action pointer initialized to zeros. When ERROR CLIST 
statement encountered then it will contain address of action. 


* Name of 
Symbolic 
Parameter 


Name 

Elements 


Output Phase 


p I IQSRL 

IOSRL 

t TOPELEMT 

Input Stack 
\ Flaa I f LSD 


: C ommand Procedure Storage 
f To Next Block Length 
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f First SNTAB 
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Phase 2 
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Diagram 5.1. Phase 1 EXEC Command Main Control (IKJCT430) (Part 2 of 2) 

1 Save input CPPLPTR-. Initialize the common work area. 

2 Establish a STAE routine. 

3 Syntax check input parameters. 

• For explicit EXEC commands, invoke Parse to obtain dataset name containing 
the command procedure, determine if the value list was specified, and obtain 
the CLIST options (LIST or PROMPT). Use IKJEFF19 to analyze any errors. 

• For implicit EXEC commands, invoke Command Scan to obtain the member 
name (Command Procedure Library) and to determine if any operands were 
specified in the value list. 

Retain Parse output with pointer to the value list. 

4 Invoke IKJDAIR to allocate the input data set. 

• For explicit EXEC commands, Data Set Allocation will be requested. 

• For implicit EXEC commands. Information Retrieval will be requested to 
determine whether 'SYSPROC' is allocated. 

Use IKJEFF18 for any DAIR errors and use STAE routine to clean up and 
return to TMP with RC=12. 

5 Use I/O Service Routines Dataset I/O to read input data set. 

• Load IKJGETL (IKJSTCK). 

• Stack a dataset I/O element, using I/O Service Routines with the input ddname 
specified as input with no output ddname, using the prompt option. 

a) Issue GETLINE for an input record. 

b) If this is first statement in the data set, then call Symbolic Parameter 
Definition (IKJCT431). 

If the return code is 4 proceed to Step 5A. If the return code is > 4 then 
use STAE Exit to cleanup and return to TMP, otherwise continue at C. 


Return Code 0 — Indicates PROC statement was not present. 

4 — Indicates PROC was present. 

c) Call Record Scan routine IKJCT432. If the return code is greater than 4, 
then use STAE Exit to clean up and return to the TMP. 

If the return code is 4 from IKJCT432 (EOF) then proceed to Step 6 for 
end-of-file cleanup. 

d) Check for end of input file. If not end of file return to Step 5 for next 
record. 

6 For end of file on input, clean up unused storage for Name table, leave some 
space in the Value Table, and place pointer to EXECDATA in LSD. Clean up any 
SP78 storage not used for CLIST. If the procedure can not be executed due to 
error then proceed to Step 2 of the STAE routine to clean up. 

7 Issue STACK with options specified by user to make command procedure the 
current input source. 

8 Return to caller with RC=0 for normal completion. For error, see below. 

Error Processing (STAE) 

1. Indicate entry to STAE routine via ABEND using a flag for ABEND entry. 

2. Free all subpool 78 storage which had been explicitly gotten — EXECDATA, 
SNTAB(s), SVTAB(s), LSD, command procedure storage area(s). 

3. Issue a TCLEARQ and a STACK macro with the DELETE=ALL option. 

4. Return to caller. For ABENDS, return to ABEND with no retry requested. 

For EXEC error situations, return to the TMP with a preset return code 
(RC=12); command procedure is not executed. 
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Diagram 5.2. Phase 1 EXEC Command Symbolic Parameter Definition (IKJCT431|) 
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to Step 10. 

4 Syntax check positional 
specification. 

5 Syntax check any positional 
parameters and use SNTAB/ 
SVTAB Update to place names 
in SNTAB. 

D Syntax check any keyword 
parameters and use SNTAB/ 
SVTAB Update to place names 
in SNTAB and values in the 
SVTAB. 

7 Construct a PCL using the 
SNTAB and call Parse to 
syntax check the value 
list. 
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Diagram 5.2. Phase 1 EXEC Command Symbolic Parameter Definition (1KJCT431) (Part 2 of 3) 


1 Save input pointer to the Common Data Area (CDA). Get storage for the 
Symbolic Name/Value tables, EXECDATA, LSD, and the command procedure 
from subpool 78. Initialize table header information for each block. If storage 
is unavailable, notify user and return with RC=16. 

2 Initialize the control variables for this command procedure. 

NAME VAL 

LASTCC 0 

MAXCC 0 

SYSPROC Logon Proc. from TIOT 

SYSTIME Create entry; indicate evaluate immediately, initialize to a 

null entry 

SYSDATE Create entry; indicate evaluate immediately, initialize to a 

null entry 

SYSUID get from PSCE 

SYSPREF Create entry, indicate immediate evaluation, initialize to a 

null entry 

SYSSCAN initialize to default 

SYSDVAL initialize to null entry 

SYSDIM initialize to 00 

SYSNEST initialize to YES or NO depending on CLIST nesting 

SYSICMD to implicit name or null if explicit EXEC 

SYSPCMD initialize to null entry 

SYSSCMD initialize to null entry 

3 Determine if the first statement is a PROC statement. When first statement is 
not a PROC statement then return with RC a 0. 

4 Syntax check positional specifications. Positional specifications must be 
numeric. Find the next non-numeric — a non-numeric is considered to be a 
comma, blank or tab or start of comment. Any other characters will be 
syntactically incorrect with user notified and "PROC not executable" set, 
then return. 


— If name less than 252 characters and correct* then call IKJCT431 

SNTAB/SVTAB Update routine to place name in SNTAB. If the PROC is 
not executable, then bypass adding to SNTAB. 

- Repeat the above steps of 5 until all positional parameters are processed. 

* If parameters syntactically incorrect then notify user, set "PROC not 
executable 0 ; continue syntax checking any remaining parameters. 

6 Syntax check keywords specified on PROC statement. 

— Skip separators. 

— First character can be alphameric or left paren. If alphameric, it is start of a 
new keyword so call IKJCT431 SNTAB/SVTAB to place previous keyword 
in SNTAB. Upon return, continue syntax checking until end of keyword is 
found (1-31 characters, the first of which is alphabetic and remainder 
alphameric*). Repeat above steps of 6 until all keywords are processed. 

If it was a left paren then syntax check the value for the current keyword. 
Value can be a quoted string or a character string*. Repeat above steps of 6 
until all keywords are processed. 

* If parameters are syntactically incorrect then notify user, set "PROC not 
executable"; continue syntax checking any remaining parameters. 

7 If errors have occurred at this point, return with any accumulated return code. 
Otherwise, using the SNTAB dynamically construct a PCL representative of 
the PROC statement parameters and call Parse to parse the value list. If Parse 
fails then notify user and return. Use IK JEFF IS to analyze Parse errors. 

8 Update the SNTAB/SVTAB with the Parse output. Take values from the PDL 
and place in the SVTAB. If operation runs out of storage, then get new blocks 
of SNTAB/SVTAB. If necessary, copy SVTAB to new block and free first 
block. If storage unavai.able, notify user and return (return code 16). 


9 Free the PCL and PDL storage. 

5 Syntax check ell positional parameters and place name in SNTAB. 

Accumulate a total number of positional parameters and the total length in 10 Return RC=0 First record not a PROC statement, 

bytes. RC-4 First record was a PROC statement. 

RC*16 Not enough storage (GETMAIN failure). 

— Skip separators. 

— First character must be alphameric. 


— Find next non-alphameric. 
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Diagram 5.2. Phase 1 EXEC Command Symbolic Parameter Definition (IKJCT431) (Part 3 of 3) 


SNTAB Element Update/Create Routine 

1. Locate the SNTAB pointer in EXECDATA. 

2. Search the SNTAB to see if name already defined. 

— If name already defined and the request was to create a label entry, then 
this is an error situation. Notify user of duplicate label and set "PROC not 
executable" and return. 

— If name already exists and the request was to create a Symbolic Parameter 
element, then notify user of multiply defined parameter and set "PROC not 
executable'* and return. 

— If name already exists and request was to locate, then return address of 
element RC=0. 

— If name does not exist and request was to locate an element, then create a 
new SNTAB element from the remaining storage. If storage remaining is 
insufficient, then get storage for a new block and extend the SNTAB. Set 
the last bit in the last element of previous SNTAB and create new entry in 
next SNTAB (if GETMAIN error return RC=16). 

When the request was to create a label entry, initialize the value pointer to the 
current location in the CP SP (78) storage and label flag. Return with RC=0. 
When the request was to create an element, set the appropriate type flags, 
adjust the SNTAB amount in use, and check to see if a value is required. If 
yes, call the SVTAB Update routine to create a value element. Return with 
address of element (SNTAB) with return code of SVTAB updates. 

3. Return RC = 0 — Request performed address of element returned. 

RC — 16 — Not enough storage. 


SVTAB Element Update/Create Routine 

1. If request was to update an element, then determine if value will fit in old 

spot. If enough room then reuse the entry and return RC=0. If not enough room, 
change request to a create. Add element space to the free space in SVTAB. 

2. If entry was to create an element, then determine if enough storage available. 

If not issue GETMAIN for a new block, copy all values from previous SVTAB. 
table up to current SNTAB element (if GETMAIN error, return with RC-16). 

3. Create the new element: update SNTAB-SNTVLPTR to new entry and adjust the 
SVTAB amount in use. 

4. Return RC = 0 — Request performed; the SNTVLPTR has the address 

of the SVTAB element. 

RC = 16 — Not enough storage. 
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Diagram 5.3. Phase 1 EXEC Command Record Scan Routine (IKJCT432) (Part 2 of 2) 

1 Call Control Command Scan. 

2 If label was found and was syntactically correct, place name and record 
address in the Symbolic Name table. Otherwise, if there is what appears to be a 
label syntax but specified incorrect, then assume the record to be a TSO 
command. When the return code from the SNTAB Update routine is non-zero, 
then proceed to Step 4 with following return code — 

0 when SNTAB Update RC not 16 
16 when SNTAB Update RC=16 

a) If not a syntactically correct command name and it contained a valid label, 
then assume it to be a TSO command. If there was no label, then assume the 
command is a TSO command in disguise. 

If a label appears by itself, this is an error; notify user, set "PROC not 
executable", RC-0 and return via Step 4. 

If no label or command appears, then return with RC=0 via Step 4. 

3 Determine command type. 

a) If the command was a TSO command in disguise, then call Common 
Command routine with the TSO op code. 

b) Determine if the command is an END or alternate END; if so, call ENDRTN. 

Otherwise, use the length to index into branch table and go to proper length 
routine. (COMCMD = Common Command Routine, OP = op code.) 


Length-1 

1. Call COMCMD OP(OO). 

Length =2 

1. IF Command ? Call IFRTN 
(IF Routine). 

2. DO Command ? Call DORTN 
(DO Routine). 

3. Call COMCMD OP(OO). 
Length=3 

1. SET Command ? Call SETRTN 
(SET Routine). 


2. Alternate END or END ? Check 
for end specification. YES — Call 
ENDRTN (END Routine). 

3. Call COMCMD OP(OO). 

Length =4 

1. GOTO Command ? Call 
COMCMD OP(OI). 

2. ELSE Command ? Call ELSERTN 
(ELSE Routine). 

3. READ Command ? Call 
READRTN (READ/ 
READDVAL/GLOBAL Routine). 


4. EXIT Command? Call 
COMCMD OP(06). 

5. DATA Command ? Call 
DATARTN (DATA Routine). 

6. ATTN Command? Set OP(11). 
Call ERRRTN {ERROR/ATTN 
Routine). 

7. Call COMCMD OP(OO). 

Length=5 

1. ERROR Command? Set OP(OA), 
Call ERRRTN (ERROR/ATTN 
Routine). 

2. WRITE Command ? Call 
COMCMD OP(05). 

3. Call COMCMD OP(OO). 

Length=6 

1. TERMIN Command? Call 
COMCMD OP(13). 

2. GLOBAL Command ? Call 
READRTN OP(FF) (READ/ 
READDVAL/GLOBAL Routine). 

3. RETURN Command ? Call 
COMCMD OP(OE). 

4. Call COMCMD OP(OO). 


Length=7 

1. CONTROL Command ? Call 
CONRTN (CONTROL Routine). 

2. WRITENR Command ? (Call 
COMCMD OP<04). 

3. ENDDATA Command ? Call 
ENDARTN (ENDDATA Routine). 

4. GETFILE Command ? Call 
COMCMD OP(14). 

5. PUTFILE Command? Call 
COMCMD OP(14). 

6. Call COMCMD OP(OO). 

Length=8 

1. READDVAL Command ? Call 
READRTN OP(IO) (READ/ 
READDVAL/GLOBAL Routine). 

2. OPEN FI LE Command ? Call 
COMCMD OP(12). 

3. CLOSFILE Command? Call 
COMCMD OP(13). 

4. Call COMCMD OP(OO). 


4 Common Exit — Call Common Move routine to move CL 1ST record to subpool 78 
using current line pointer. 

5 Special Exit — No moving required. 

i 

6 Return RC=0 Record processed successfully. 

RC=4 End-of-file occurred. 

RC=16 Not enough storage (GETMAIN failure). 

RC=20 GETLINE error. 
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Diagram 5.3.1. IF Routine (IKJCT432) (Part 2 of 2) 


1 Save input pointer to the Common Data Area (CDA) pointer and flag area. 

2 Initialize the command procedure op code to X'02' and set the parameter offset 
(02) equal to the offset of the first parameter of the command (offset to A). 
Update LL of current CP record. 

3 Reserve four bytes of CLIST Parm Area for the FALSE path address. 

4 Locate the ending position of the THEN keyword by skipping separators and 
operands until the THEN clause is found. 

5 Call the Common Move routine to move the record starting with IF and ending 
with THEN, to Command Procedure Storage Area. Respecify SP (78) command 
base after move in case record would not fit in the current CP block. If return 
code from Move non-zero then return with Move RC via Step 9. 

g Adjust offset in record to next position following N of THEN and call the 
Record Scan routine to process the command following. (Preserve the original 
input buffer address and length for correct freeing of buffer later.) 

7 Upon return from the Record Scan routine construct an internal GOTO 
CLIST statement with an address in CLIST parms of the next command 
procedure record to be created and call the Common Move routine to place 
in the CP Storage (if the RSR return code was not zero then return with RSR 
RC via Step 9). Initialize the GOTO address to the next SP (78) command 
procedure record to be created. If the Move Return code was non-zero then 
return with Move RC via Step 9. 


8 Update the FALSE path address in the IF CP Storage record to point to the 
next record to be created in CP Storage. (Same address as in internal GOTO.) 
If an END of DO loop was processed during the object of the THEN* 
processing then return via special EXIT to close the DO loop. 

9 Call G ETA LINE to obtain the next input buffer (allows nesting of IF THEN... 
ELSE relationships properly). 

10 Call Record Scan routine (IKJCT432) to process record obtained in 9 if not 
end of file. 

11 Return via the Special Exit because no move is necessary with GETALINE 
return code. 
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Diagram 5.3.2. ELSE Routine (IKJCT432) (Part 1 of 2) 


Input from Process Output 

IKJCT432 

Mainline for SP78 Command Procedure Storage 














Diagram 5.3.2. ELSE Routine (IKJCT432) (Part 2 of 2) 


1 Save input pointer to the CDAPTR and flag area. 

2 Make sure previous CP Storage record is an internal GOTO with an address the 
same as that of the next command procedure record to be created. Save 
address of the internal GOTO for later update; if this is not true then the user 
has a syntax error; notify the user and set the PROC not executable switch- 
continue command syntax check at Step 5. 

3 Place the op code X'03* in the current CP storage record, update 02 offset and 
LL of current CP record. (Preserve the original input buffer address and length 
for correct freeing of input buffer, later.) 

4 Call the Common Move routine to move ELSE to CP storage. If the Move 
return code is non-zero, then return with Move RC via Step 7. 

5 Update the offset in the current input record past the word ELSE and call the 
Record Scan routine to process the object of the ELSE. If RSR return code 
non-zero return with RSR RC via Step 7. 

6 Update the address in the internal GOTO prior to the ELSE to point to the 
next CP storage record to be created. 

7 Return via Special Exit. 
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Diagram 5.3.3. DO Routine (IKJCT432) (Part 1 of 2) 

Input 


Reg 1 


PARMS 


PARMPTR 


ECDAPTR 


Flags 


from IKJCT432 
Mainline for Process 

DO WHILE 
A=B 

command I 


ECDA (EXEC Common Data Area) 


ECDAIREC 


ECDACPRE 


ECDACNXT (|to next) 



Current Input Record 

H 1 

SP78 Command Procedure Storage 


L L 


°2l°2 


I- 

mmand |. 


1 Initialize the Record Scan routine 
parm list. 

2 Place op codes and flag byte in CP 
Storage record. 

3 Check for WHILE operand; if 
present reserve 4 bytes CLIST parm 
for FALSE branch. 

4 Call Common Move routine to 
place DO command in CP storage. 

5 Call G ETA LINE routine for next 
input record. 

Q Call Record Scan routine 

(IKJCT432) (Re-enter IKJCT432). 

7 Repeat Steps 5 & 6 until END has 
been processed. 

g For DO s with WHILE operand 
build an internal GOTO to allow 
checking the condition. Call 
Common Move routine. Initialize 
the 4 byte address in the DO 
statement CLIST PARMS area. 

g Return via Special Exit. 


IT 


Output 

SP78 Command Procedure Storage 


a 


O.C.FLg 

L 

rr 


0 

°2 1 °2 1 07 

xw 

1 FALSE Path Addr 

DO WHILE A“ 

B 




- DO action statements - 




END 


o 

_J 

-1 

0 


E9 

OF 

| Internal GOTO Addr 


r 







Using example shown: 

°2^2'0f* S8t f rom 00 field to the A 
00 - Offset from 00 field to the D 


to Special Exit 













Diagram 5.3.3. DO Routine (IKJCT432) (Part 2 of 2) 


1 Save pointer to the CDAPTR and flag area. 

2 Place op code 07 and flag byte X'00' in the OUST parm area. Update DO 
Count. Update 0202 offset. 

3 Determine if the WHILE operand was specified. If so reserve 4 bytes in the 
CLIST parm area and set flag byte X'80\Thi$ will be the address of FALSE 
path. Adjust LL of current CP record. If there was no WHILE operand leave 
flag type X'OO*. 

4 Call the Common Move routine to place the DO statement in the CP storage 
area. Respecify SP (78) command base after move in case record would not 
fit previous block. If return code from Move non-zero then return with Move 
RC via Step 9. 

5 Call the GETALINE routine to get the next record from the input data set. 

If end of file has occurred then notify user of the open DO group, set PROC 
not executable. For end of file and other errors return with the GETLINE 
error via Step 9. 

6 Initialize a flag area and CDAPTR parm to be used as input to the Record 
S£an routine and call Record Scan routine. If the return code from RSR is 
non-zero notify the user of the open DO group and return with RSR RC via 
Step 7. 

7 Repeat Steps 5 and 6 until an END CLIST statement has been processed 
(this will be denoted by conditions in the flag area). 

8 If the DO statement had a WHILE operand then build an internal GOTO with 
the address initialized to that of the original DO statement. Call the 
Common Move routine to place internal GOTO into CP storage. Update the 
FALSE address in the original DO statement to the address of the next 
record to be created. 

9 Return via Special Exit. 
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ON 

to 


Diagram 5.3.4. ERROR/ATTN Routine (IKJCT432) (Part 1 of 2) 

from IKJCT432 

Input Mainline for Process 

ERROR or 

_ATTN acti on 

command P" 


Reg 1 


PARMS 


PARMPTR 


ECDAPTR 


Flags 


ECDA (EXEC Common Data Area) 


ECDAIREC 


ECDACPRE 


ECDACNXT (|to next) 


i 



Current Input Record 


LL 00 


SP78 Command Procedure Storage 


L I L | 0|0|0 2 | 0 2 | 


rimand 

a 


Initialize the Record Scan routine 
parm list. 

2 Place op code in CP storage and 
flag byte X'OO'. 

3 When OFF specified set flag byte 
and return via Common Exit. 

4 Call Common Move to place 
'ERROR' or 'ATTN' in CP storage. 

5 Call Record Scan Routine to 
process ERROR/ATTN action. 

0 Return via Special Exit. 


IF 


Output 


SP78 Command Procedure Storage 










L 

L 

0 

0 

°2 

o 2 

* 

Flag 

to next 



ERROR (or ATTN) 

* 

ER ROR or ATTN action commands J 

_____3 










*X'OA’ for ERROR or X'11' for ATTN. 


Using example shown: 

^2^2 ‘ from 00 field to end of buffer 

00 - Offset from 00 field to E 


to Special Exit 
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Diagram 5.3.4. ERROR/ATTN Routine (IKJCT432) (Part 2 of 2) 


1 Save address of input parms — CDAPTR and flags. 

2 Initialize a flag byte to zero; X*00\ Adjust LL and 0202 of current CP record. 

3 Determine if OFF was specified. If OFF was requested then set flag byte to 
X'80* and return via Common Exit. If no operands specified set flag byte to 
X'40' and return via Common Exit. 

4 Reserve 4 bytes for the End of Action address. Adjust LL and 0202 of current 
CP record. CALL the Common Move routine to place 'ERROR* in the CP 
storage. If Move return code non-zero then return with Move RC via Step 6. 


5 Call Record Scan routine to process the action following 'ERROR'. Update 
the End of Action address in the CLIST Parm Area. If RSR return code 
non-zero, then return with RSR RC via Step 6. 

6 Return via Special Exit. 
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2 Diagram 5.3.5. END Routine (IKJCT432) (Part 1 of 2) 

from 

Input 


IKJCT432 Process 

Mainline for 
END or 


Output 


SP78 Command Procedure Storage 



to Common Exit 




Diagram 5.3.5. END Routine (IKJCT432) (Part 2 of 2) 


1 Lower the open DO count by ONE. 

2 If the DO count goes negative then there was no matching DO. If this was an 
alternate end specification (ECDAEND field other than 'END') then it is an 
error; notify the user and set the PROC not executable switch. Otherwise, zero 
the DO count then treat as if it was a TSO command by invoking the COMCMD 
routine with the TSO op code X'OO*. COMCMD routine will return via Common 
Exit. 

3 Set END Flag in input parm flag area. Set op code to X'08’ and initialize 0202 
and LL. 

4 Return via Common Exit. 



Diagram 53.6. SET Routine (IKJCT432) (Part i of 2) 


Input 


ECDAIREC 
ECDACPRE 
ECDACNXT (|to next) 


from IKJCT432 
Mainline for SET 

l&A-B |- 

[command I 


Process 


Output 


SP78 Command Procedure Storage 



/Current Input R ecord 
|ll|oo| | 

SP78 Command Procedure Storage 


L L 0 ONO, 


\ Place op code OD in CP storage 


LU 


2 Find the beginning of the 
symbolic variable. 

3 Check first character for 
ampersand. If so skip past. Set 
00, O 2 O 2 , and LL. 

4 Return via Common Exit. 



Using example shown: 

°2°2 * 0ffset from 00 * ie,d to the A 
00 - Offset from OO field to S 


to Common Exit 










Diagram 5.3.6. SET Routine (IKJCT432) (Part 2 of 2) 


1 Place op code *0D' in CP storage area. 

2 Locate the start of symbolic variable. If none exist, issue a message and return to 
Special Exit with return code. 

3 If the first character is an ampersand, skip past. Set 00, 0202, and LL. 

4 Return via Common Exit. 
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Diagram 5.3.7. CONTROL Routine (IKJCT432) (Part l of 2) 


S 


Input . . Process Output 

r from IKJCT432 Mainline ^ 


for CONROL NOFLUSH SP78 Command Procedure Storage 














Diagram 5.3.7. CONTROL Routine (IKJCT432) (Part 2 of 2) 


1 Place op code X'09' in the CP storage area. Reserve 2 bytes for flag options. 
Update the 0202 and LL fields. 

2 Validate the parameters specified. Syntax checking will not invoke any 
prompting situations. If a parameter is incorrect, notify the user and set the 
“PROC not executable" switch and continue syntax check of operands. The 
lowest unique number of characters are allowed for each keyword. 

3 Indicate the options found on the CONTROL statement by setting or resetting 
bits in flag bytes. 

4 If an alternate ending sequence was specified then update the alternate END 
field and length in the Common Data Area. 

5 Return via Common Exit. 
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Diagram 53.8. READ/READDVAL/GLOBAL Routine (IKJCT432) (Part 1 of 2) 

from IKJCT432 

Input Mainline for Process 

READ &A, &B, 

_&C, &LAST_ 

P I ] PPP Icommand P ~" 


PARMPTR 


PARMS 


ECDAPTR 


ECDA (EXEC Common Data Area) 


ECDAIREC 

ECDACPRE 


ECDACNXT (fto next) 


^ Place op code in CP storage and 
reserve two bytes in CLIST 
PARMS area for the parm count. 

2 Syntax check a symbolic parm. 

3 Call SNTAB Update to locate 
SNTAB entry. 

4 Up the parm count by 1; call 
Common Move for a special 

R EAD command 4 byte move 
to place the SNTAB element 
address in the CLIST PARMS 


Output 

SP78 Command Procedure Storage 


OC ICNT* 


t SNTAB Element for A U SNTAB Element for B 


fSNTAB Element for ClfSNTAB Element for LAST] 


READ &A, &B, &C, & LAST 


*CNT is the number of variables; 4 in this example. 


/ Curr ent I nput Record 

IllIooI I 


SP78 Command Procedure Storage 



5 Repeat Steps 2, 4 until all parms 
processed. 

0 If this is a G LOBAL statement 
then return via Special Exit; 
otherwise, return via Common 
Exit. 


Using example shown: 

0 2 0 2 - Offset from 00 field to end of record 
00 - Offset from 00 field to R 


to Common Exit 














Method of Operation 71 


Diagram 5.3.8. READ/READDVAL/GLOBAL Routine (IKJCT432) (Part 2 


1 If command is GLOBAL proceed to Step 2. Place op code in CP storage record 
and reserve two bytes for a count field set to X'OOOO'. 

2 Syntax check a Symbolic Parameter Specification. Determine name and length. 
If syntax incorrect notify user, set PROC not executable and continue syntax 
check of any more parameters. 

3 Call SNTAB Update routine to locate or create an element in SNTAB. If 
command is GLOBAL, proceed to Step 2 to process next parameter name; if no 
further parameters, return via Special Exit. CaU Common Move to place 
address of etement’in CLIST Parm by indicating call by READ command. If the 
return code from the SNTAB Update routine or Move routine is non-zero then 
return with SNTAB Update or Move RC via Step 6. 


4 Add one to the parm count. Update 0202 and LL fields. 


5 Repeat Steps 2-4 until all symbolic parameters have been syntax checked or 
count exceeds 256. If count exceeds 256, notify user that PROC is not 
executable and return. 

6 If the command length was eight, then set the op code to 10. Return via 
Common Exit. 
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to Common Exit 








Diagram 5.3.9. Common Command Routine (IKJCT432) (Part 2 of 2) 


1 Initialization already moved the op code to the current 
CP record. 

2 Update the OO, 0202 and the LL fields in the CP record 
as follows: 

— TSO commands: 0202 = offset to first position of 
command name; 00 = same as 0202. 

- WRITE (NR) commands: 0202 - offset to separator 
following last character of command name; 00 *= off¬ 
set from OO field to the first letter of the command 
name. 

— All other: 0202 « offset to first operand following 
the command name; OO = offset from 00 to first 
letter of command name. 


3 


Return via Common Exit. 
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to Special Exit 
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Diagram 5.3.10. DATA to ENDDATA Routine (1KJCT432) (Part 2 of 2) 


1 GETALINE 

1. Issue a FREEMAIN for the previous input record. 

2. Issue a GETLINE for the next input record. If end of data occurs then 
return with Return Code « 4. Other errors, notify user and return with 
Return Code = 20. 

3. Update the current input record pointer in the Common Data Area (CDA). 

4. Return to caller. 

2 Control Command Scan 

1. Skip separators. 

2. Validity check the first character for alphabetic. 

If the first character is an ampersand or a percent sign it will be valid; 
assume this is a TSO command. 

If the first character is not alphabetic, then assume this is a TSO 
command. 

3. Find the end of parameter by scanning to next non-alphameric. 

4. If the non-alphameric was a colon and the routine has not already 
processed a label, then update the label output area; length of 
label can not exceed 8 characters. After updating the label out¬ 
put area return to Step 1 to syntax check the command name 
specification. If routine has already processed a label or the 
length was greater than 8 characters then assume this is a 

TSO command. 

5. If the non-alphameric is not a colon, this is the end of the 

command name. Validity check command length and update the command 
output area. If length not 8 or less then assume this is a TSO command. 

6 . Return. 


4 Call SNTAB Update routine to put TSO op code in CP storage. 

5 CP Common Move Routine 

1. Locate the current offset into the current CP storage record by adding LL at 
base of'record. If PROC not executable switch is on then return. 

2. Determine if the amount of storage remaining in the command procedure 
area is large enough to contain the data to be moved. If storage remaining 
in the command procedure is insufficient then we must get an additional 
block of Subpool 78 storage for the command procedure. 

• Issue a GETMAIN (SP78) for at least 2K* block of storage for the 
command procedure area. Initialize the 3 word header in beginning of 
new Command Procedure Storage Block. If GETMAIN fails then notify 
user, set PROC not executable and return RC=16. 

*Or for an amount of storage that will contain the CP header area, the 
current record, and an'internal GOTO (max prefix). 

• Move the current prefix area from the old block of storage to the new 
block of storage (from the LL to a length of LL). 

• Free any excess storage over 8 bytes in the old block. 

3. Move the record to the CP storage block. The address of the data to be 
moved and its length will be in the Common Data Area. Placement of data 
in the command procedure area will start at the current value of LL into 
the current command procedure record prefix (ECDACNXT address). 

4. Then update the command procedure record LL field to the new length. 
Update the available storage size in the command procedure block header. 

5. If this was a call by the READ Command then return; otherwise, update 
the previous and next record pointers in the CDA and return. 

6 Repeat steps 1 - 5 until ENDDATA is processed. 


3 ENDDATA Routine 

The ENDDATA routine should never get control unless there is a missing data 
statement. ENDDATA routine should notify user of error, set PROC not 
executable and return with RC=0. 
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3 Diagram 6. FREE Command Processor (Part 1 of 2 

Input Pro* 



Check command syntax. 

Check for invalid disposition. 
Prompt for data set name. 

Translate parameters to text 
format. 

Process ddnames, data set 
names, or attribute names. 

Check Dynamic Allocation 
return codes. 







Diagram 6. FREE Command Processor (Part 2 of 2) 


1 Use Parse to syntax check the command. Check the Parse return code; if it is non¬ 
zero return to the TMP. 

2 Check to see if DEST, HOLD, or NOHOLD was specified with a data set disposi¬ 
tion of KEEP, DELETE, CATALOG, or UNCATALOG. If yes, issue an error mes¬ 
sage and return to the TMP. 

3 Check to see if a data set name, file name, or attribute list name was entered. If 
no, pass control to Parse and prompt the user for a data set name. When prompt¬ 
ing is complete, overlay the original PDE with the new PDE from prompt. 

4 Use GENTRANS to translate the parameters to text format. The pointer to the 
text unit is returned from GENTRANS in the IKJZB831 parameter list. If the 
return code is non-zero, return control to the TMP. 


5 Use the unallocate function of Dynamic Allocation to unallocate files, data sets, 
or attribute lists. 

Q Check the Dynamic Allocation return code and information reason code. 

• If both codes are zero, a file, data set, or attribute list was unallocated. 

• If either code was non-zero, unable to unallocate. Use the DAIR 

failure message routine IKJEFF18 to analyze the return code and send the 
appropriate error message to the user. 

Control is returned to the TMP. 

Object Module: IKJEFD20 
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Diagram 7.1. HELP Processing (Part 2 of 2) 


Extended Description 


1 Using DAIR, (The Dynamic Allocation Interface Routine), allocate the HELP 6 

data set. 

2 Check return code: 

a) If non-zero, use IKJEFF18 (DAIRFAIL) to diagnose error and send message to 
user, return to caller. 

b) If zero and DSORG is not PO (partitioned), issue message to user, return to 
caller. 

3 Open HELP data set. If Open fails, issue message and return to caller. 

4 Use Parse to check syntax of command. 

5 If Parse was unsuccessful, issue messages and return to caller. 


FIND member of HELP data set. 

a) If not in subcommand mode (command attached by the TMP is HELP or H), 
and HELP entered with no operands, find member 'COMMANDS'. 

b) If not in subcommand mode and HELP entered with operands, use first 
operand as member name. 

c) If in subcommand mode and HELP is first operand, find member 'HELP'. 

d) If in subcommand mode and HELP is not first operand, use the name of the 
name of the command attached by TMP (from ECT) as the member name. 

7 If case d) of step 6, read record from member of HELP data set. See Diagram 7.3. 
Search each record for subcommandname indicator '=' and then for subcom- 
mandname requested on command. Keep reading records until end-of-file (error) 
or subcommand name found. 

8 Process the HELP data set member. See Diagram 7.2. 

9 Close the HELP data set. Return to caller. 


Object Module: IKJEFH01 
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Diagram 7.2. Processing HELP Data Set Member (Part 1 of 2) 

Input Process 






Diagram 7.2. Processing HELP Data Set Member (Part 2 of 2) 

Extended Description 

1 Obtain a card image from the HELP data set member. See Diagram 7.3. 

2 Parse output calls for either keyword or control character information. Scan card 
to find match for Parse output. 

3 If scan finds match, use PUTLINE via IKJEFF02 to display card image to user. 

4 If all information has been displayed, return to caller, else process step 1 again. 


Object Module: IKJEFH02 
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Diagram 7.3. Reading HELP Data Set (Part I of 2) 

Input Process 
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Diagram 7.3. Reading HELP Data Set (Part 2 of 2) 

Extended Description 


1 The HELP data set is blocked. Read a block and deblock a record or deblock 
card image record. In case of I/O error or end of data, set switches. 

2 Return to caller. 


Object Module: IKJEFH03 
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£ Diagram 8. LINK and LOADGO Processing (Part 1 of 2) 

Input Process 









Method of Operation 


Diagram 8. LINK and LOADGO Processing (Put 2 of 2) 

Extended Description 

1 Use Parse to analyze syntax off commands. Check data set names for valid quali¬ 
fiers. Set LKLD to indicate whether command is LINK or LOADGO. 

2 Use DAIR to allocate data sets. Place each data set name in DDNAME list. 

3 Use DAIR to concatenate ddnames in ddname list. (DDNMS) 

4 Using Parse output, process command options. Prompt for missing operands, set 
defaults. Place results in option list. (OPLEN) 

Note that the LINK and LOADGO commands have been updated with 
AMODE and RMODE options to support the MVS/XA environment. 

5 Link to either the Linkage Editor or the Loader depending on LKLD switch pass¬ 
ing the option list and ddname list through OUTPARM. 

6 On return, separate concatenated data sets and return to the TMP. 


s 


As Updated March 1,1985 

By Suppi SD23-0299 for 5665-291,5740-XC6 
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Diagram 9.1. L1STALC Processing Overview (Part 2 of 2) 


1 The Parse routine syntax checks the command. Upon return, the Parse return code 
is checked. 

Possib/e messages: IKJ58304I, IKJ58305/ 

2 Set option byte to reflect options selected by user. If HISTORY, MEMBERS, or 
SYSNAMES were specified, get workarea and place address in OBTWA. Store 
JFCB work area address. Store DCB address. 

Possible message: IKJ58303I 

3 Obtain a pointer to the Data Set Attribute Block DSAB chain through SVC99. 
After the DSAB is located, check for HISTORY and STATUS and print applicable 
headings. Then check the DSAB to see if it is available for allocation. The 
DSAB is considered available if the data set is not in use and not permanently 
allocated. This condition is indicated on the output line by an asterisk (*) 
preceding the data set name. 


4 After basic processing of a DSAB, check to see if HISTORY was requested. If yes, 
process HISTORY information. See Diagram 9.3 (VSAM) or 9.4 (Non-VSAM). 

5 If STATUS was specified, process STATUS information, see Diagram 9.5. 

6 Write HISTORY and/or STATUS information, if applicable. 

Possible messages: IKJ58301I, IKJ58300I 

7 After all processing of the DSAB is complete, process the next DSAB. If no 
DSABs remain to be processed, return control to the TMP. 

Object Module: IKJEHAL1 
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Diagram 9.2. LISTALC DSAB Processing (Part 1 of 2) 

Input Process Output 







Diagram 9.2. LISTALC DSAB Processing (Part 2 of 2) 

1 Check the dynamic allocation parameter list (IEFZB4D0) to see if it has been 
initialized for use by Dynamic Allocation. If it is initialized continue processing. 
If not, build dynamic allocation text units describing the data to be returned 
about each allocated data set. 

2 Use Dynamic Allocation to get information requested by the text units from the 
DSAB. 

3 Get data set name from the DSAB and move it to the output buffer. If a data set 
name is not available, put the appropriate message in the output buffer. 


Object Module: IKJEHAL1 
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Diagram 9.3. LISTALC HISTORY Processing (VSAM) (Part 1 of 2) 


Input Process Output 






Diagram 9.3. LISTALC HISTORY Processing (VSAM) (Part 2 of 2) 


1 Build a catalog parameter list using information and the data set name obtained 
from the DSAB by SVC99. The parameter list specifies the named data set to be 
retrieved from the VSAM catalog, the entry type (indicates VSAM or non-VSAM 
data set) and the expiration and creation dates for the data set are to be returned 
in the work area. 

2 Locate the required fields in the CTGPL and the CTGFL to return expiration date, 
creation date, and entry type. 

3 Pass control to IKJEHVHS, the VSAM HISTORY processing routine, which turns 
on the “Write" switch to indicate that the buffer should be written when all 
options have been processed. 

4 Convert creation and expiration dates into MM/DD/YY format and move them 
and the entry type to the output buffer. 

Object Module: IKJEHAL 1 

CSECT: IKJEHHST 
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Diagram 9.4. LISTALC HISTORY Processing (Non-VSAM) (Part 1 of 2) 


Process 


Output 


1 OBTAIN DSCB. 


2 Turn on "Write" switch 
Process DSORG. 


3 Process creation and 
expiration dates. 

4 Indicate protection, if 
applicable. 

Then return. 



OBTWORKA 


PO, PS, IS, etc. Also, U if applicable. 


'PROTECTED', 'WRITE', or 'NONE' 



Format 1 DSCB 
(DSECT IECSDSL1) 



DS1CREDT 
DS1 EXPDT 


DS1 DSORG 


Creation date 
Expiration date 


Data Set Organization 


DS1DSIND 


Protect indicators 




Diagram 9.4. LISTALC HISTORY Processing (Non-VSAM) (Part 2 of 2) 


1 Check the DSADDNAM field in the DSAB for blanks. If the field contains blanks, it 
is part of a concatenation. Issue LOCATE to find the volume serial for the 
OBTAIN; otherwise, issue a RDJFCB to find the volume serial of the volume con- 
taining the OSCB. 

Issue an OBTAIN macro instruction. 

2 Then pass control to IKJEHHST, the HISTORY processing routine, which turns 
on the 'Write' switch and checks for data set organization. 

The organization indicator (PO, PS, etc.) is then placed in the buffer, along with 
the unmovable indicator (U), if applicable. 

3 Creation and expiration date are converted into MM/DD/YY format and placed in 
the buffer. 

4 A check is made for password protection, tf none, a check is made for write pro¬ 
tection. The applicable indication is placed in the buffer. 

Control is then returned to IKJEHAL1, where a check is made for STATUS proc¬ 
essing. (If none, the write switch is checked and found 'on', then the buffer is 
written via PUTLINE; if STATUS processing is applicable, the STATUS informa¬ 
tion is placed in the buffer prior to checking the write switch.) 

Object Module: IKJEHAL1 
CSECT: I KJEHHST 
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Diagram 9.5. LISTALC STATUS Processing (Part 2 of 2) 


1 A check is made to see if HISTORY information is contained in the output buffer 
area. If so, this will affect the pointer to the proper location in the buffer. 

The ddname in field DSADDNAM is moved to the output buffer area. The 
ddname can be blanks if the data set was concatenated. 

2 Then a test is made for normal disposition. The appropriate indication is placed 
in the output buffer. The output-buffer pointer is then updated to point to the 
next location. 

A test is now made for disposition in the event of an abnormal termination. 

The appropriate disposition is moved to the buffer. 

3 The 'Write' Switch is turned on and control is returned to IKJEHAL1. 
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Diagram 9.6. LISTALC MEMBERS Processing (Part 1 of 2) 


Input Process Output 



4 Compare TTRs for match. 
Write output. 













Diagram 9.6. LISTALC MEMBERS Processing (Part 2 of 2) 


1 IKJEHMMR makes a number of checks, prior to passing control to IKJEHMEM, 
to ensure that processing is applicable. 

• DSORG in the DSCB is checked to ensure that it is PO. 

• This user's userid must be the first qualifier in the data set name. 

• The ddname cannot be blank (which would indicate concatenation). 

• The dynamic concatenation bit in the DSAB is checked. If on, DSADDNAM is 
compared to DCBDDNAM. If unequal, MEMBERS processing can continue. (If 
equal, this is at least the second data set of a concatenation cluster.) 

2 A RDJFCB is issued (unless HISTORY was also specified, in which case it is not 
required), the CALLIST parameter list for IKJEHMEM is constructed, and control 
is passed to IKJEHMEM. 


3 IKJEHMEM initializes the True and Alias Name tables, then reads the PDS direc¬ 
tory into them. Name blocks are obtained and chained dynamically, as required. 

4 A true name is moved to the output buffer. The true name TTR is compared with 
all of the alias name TTRs. Applicable aliases are moved to the buffer. (The calling 
routine's write routine is used to write the buffer.) This action is repeated until all 
true names have been processed. Alias names that do not match any true name are 
then grouped by TTR and written. A message is provided to indicate that no true 
name exists for them. 

Control then returns to IKJEHMMR, where the return code is checked and control 
is passed to IKJEHAL1. 

Possible message: /KJ58301I 

Object Module: IKJEHMEM 
CSECT: IKJEHMMR 
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Diagram 10.1. LISTBC Processing Overview (Parti of 2) 
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Diagram 10.1. LISTBC Processing Overview (Part 2 of 2) 


1 Entry point IKJEES73 is used to bypass the use of Parse. 

2 A check is made to determine if explicit operands have been supplied for LISTBC. 
If they exist, the Parse parameter list (PPL) is created with Register 1 pointing to 
it. Parse is then used to syntax check the LISTBC operands. If the NOMAIL and 
NONOTICES bits are both set, control is returned to the TMP. If Parse fails, it 
returns a non-zero return code. When LISTBC detects this, it issues an error mes¬ 
sage and returns control to the TMP. 

3 If Parse was successful or was not required, LISTBC proceeds to create a DAIR 
parameter list (DAPL) which is pointed to by register 1. The DAPL contains a 
pointer to an X'08' type DAIR parameter block (DAPB08). DAIR is then used to 
obtain a ddname. If DAIR is successful, the ddname it returns is placed in the DCB 
which describes the SYS1 .BRODCAST data set located on a direct access device. 


5 If there are no errors, LISTBC does an enqueue for record 1 (qname 'SYSIKJBC', 
rname 'GOOOOO'X) and opens SYS1.BRODCAST for output. 

6 Processing of NOTICES messages and MAI L user messages is done as shown in 
Diagrams 10.2 and 10.3. The user is informed if there are no messages of the types 
requested. 

7 If entry was from the TMP, dequeueing is done from SYS1 .BRODCAST and it is 
closed. Control is then returned to the TMP. 

If entry was from LOGON, control is returned to LOGON. 

Object Module: IKJEES70, IKJEES75 


4 If allocation of a ddname is not successful, DAIR returns a non zero return code. 
In this case, the common DAIR failure message routine 0KJEFF18) is used to 
issue an error message. Control is returned to the TMP. 
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Diagram 10.2. L1STBC NOTICES Message Processing (Part 1 of 2) 


Input Process Output 




Diagram 10.2. LISTBC NOTICES Message Processing (Part 2 of 2) 


1 Read record 1 of the SYS1.BRODCAST data set to check for proper format (level 
indicator is 2) and get the pointer to the first NOTICES directory record. If there 
is a format error an error message is issued and control is returned to the caller. If 
NONOTICES was specified, processing of NOTICE records is bypassed and proc¬ 
essing continues with MAIL records. 

2 Read the first NOTICES directory record into a buffer and scan the buffer for 
active NOTICES. 

3 Broadcast the message if the high order bit of the message number is set to zero. 
The message text is read into a buffer which is pointed to by an entry in the 10 
Parameter List (IOPL). The PUTLINE service routine (IKJPUTL) is used with 
register 1 pointing to the IOPL. IKJPUTL transmits the active NOTICES message 
to the terminal. 

4 Examine the RBA for the next NOTICES directory record. If the RBA is non-zero, 
that RBA is used to locate the next NOTICES directory record. The record is read 
into the buffer and processed as in step 2. If the RBA is zero, no more directory 
records exist. Control is passed to the MAIL message processing routine. 


Object Module: IKJEES70, IKJEES75 
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Diagram 10.3. LISTBC MAIL Message Processing (Part 1 of 2) 
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Diagram 10.3. LISTBC MAIL Message Processing (Part 2 of 2) 


1 Check if the NOMAIL bit was set on. If it was set. branch to the LISTBC exit 
procedure described in step 7 of diagram 10.1. Read Record 1 of the 

SYS1 .BRODCAST Data Set to obtain the pointer to the relative block address 
(RBA) of the initial user MAI L directory record. 

2 The first MAI L directory record is read into a buffer where the user identification 
(userids) can be examined. The userid in the PSCB created by LOGON is succes¬ 
sively compared to all userids in the first MAIL directory record. If a match is 
found in this record, processing continues as described in step 3 below. If a X'7F' 
is found in scanning the record, it indicates that an end of record condition has 
been reached. The RBA pointer to the next directory record is examined. If it is 
not zero, it is used by BDAM to read that next MAIL directory record into a 
buffer. It is then scanned for the matching userid in the same manner as above. 
The final MAIL directory record has all zeros as its RBA for the next directory. If 
this condition is reached, it means all userids in the entire chain of MAIL direc¬ 
tory records have been searched without finding a matching userid. In this case, 
no messages are transmitted to the requesting user. 


3 When the matching userid is found in the MAI L directory, its associated RBA 
pointer to its message chain, is used to read the message text record into a buffer. 
PUTLINE is invoked with its IOPL containing a pointer to the message text buffer. 
The user MAIL message is transmitted to the user by PUTLINE. The RBA pointer 
to additional MAIL messages for that same user is checked. If the RBA pointer is 
not zero, it is used to read in the next MAIL message, which is again transmitted 
by PUTLINE. This process continues until the zero RBA message pointer is 
reached. 

4 Each MAIL message record sent to the requesting userid is then deleted. The mes¬ 
sage record itself is written back with a X'FF' key, which tells BDAM that this is 
an inactive record which can be used for incoming messages. 

5 Upon completion of MAIL message processing, a branch is taken to the LISTBC 
exit procedure described in step 7 of diagram 10.1. 

Object Module: IKJEES70, IKJEES75 
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Diagram 11.1. LI STDS Processing Overview (Part 1 of 2) 

Input Process Output 








Diagram 11.1. LISTDS Processing Overview (Part 2 of 2) 


1 The Parse routine receives control to check the command buffer for incorrect or 
unspecified parameters upon return from Parse, the return code is checked, and 
then appropriate option bits are set to reflect the specified options. If MEMBERS 
is requested, load module IKJEHMEM is loaded into storage. If STATUS is speci¬ 
fied, the DSAB is located. The LEVEL keyword or an ’•* indicates that the data 
set name is generic. 

Possible messages: IKJ585111, IKJ58512I 

2 The first entry in the dsname list is pointed to. The NXDSNAME subroutine 
examines the dsname and fully qualifies it, if necessary. 

Possible messages: IKJ58503I. IKJ58509I , IKJ58502I , IKJ58513I 

Then the fully-qualified name is moved to the output buffer and written. 

Non-VSAM Data Sets: The LOCATE macro is used in an attempt to locate the 
dsname through the catalog. If LOCATE passes back a non-zero return code, 
DAIR is used (with an X'08' operation code) irvan attempt to see if the data set is 
otherwise accessable. If the data set cannot be located, the user is informed and 
processing continues with the next dsname. 

Possible messages: IKJ58503I , IKJ58506I , IKJ58507I, IKJ58508l f IKJ58510I , 
IKJ58512I 


Then the OBTAIN macro is issued to bring the DSCB into storage. If the return 
code is not equal zero, processing continues with the next dsname in the list. 
Otherwise, heading information is moved to the buffer and written. 

VSAM Data Sets: The Catalog Information Routine is used to supply a list of 
names. VSAM LOCATE is used to indicate whether the data set is VSAM or not. 
LOCATE also supplies the required attributes if the data set is VSAM. 

Possible message: IKJ58504I 

HISTORY is processed, if applicable. See Diagram 11.2 (VSAM) or 11.3 (non- 
VSAM) 

STATUS is processed, if applicable. See Diagram 11.4 

3-4 First the buffer is written, then volume serials are placed, one by one, in the buffer 
and printed. 

Possible message: IKJ58504I 

Then a check is made for MEMBERS and LABEL processing. 

See Diagrams 11.5 and 11.6 respectively. 

5 After MEMBERS and/or LABEL have been processed, additional dsnames, if any, 
are processed. When all have been processed, control returns to the TMP. 


Depending on which way the data set was found (using LOCATE or DAIR), set up Object Module: IKJEHDS1 

is performed prior to issuing an OBTAIN. If LOCATE found the data set, the CSECT: IKJEHBSC 

LOCATE switch is set. If DAIR found the data set, the DDNAME is moved to a 
DCB and the RDJFCB macro is issued to get the JFCB. 




Output 







Diagram 11.2. LISTDS HISTORY Processing (VSAM) (Part 2 of 2) 

1 Build a catalog parameter list using information and the data set name 
obtained from the DSAB by SVC99. The parameter list specifies the data set 
name to be retrieved from the VSAM catalog, the entry type, creation and 
expiration dates, logical record length, volume serials, and physical blocksize 
for the data set. 

2 Upon entry from the IKJEHDS1 routine, IKJEHHIS gets a save area, then sets 
up to convert the creation date from VMM DO format to MM/DD/YY. 

The creation date is converted and placed in the buffer. If no date was found, 
a default of 00/00/00 is placed in the buffer. This process is repeated for the 
expiration date. The entry type code is also moved into the output buffer. 

Object Module: IKJEHDS1 

CSECT: IKJEHHIS 



108 OS/VS2 TSO Command Processor Logic - Volume 




Diagram 11.3. LISTDS HISTORY Processing (Non-VSAM) (Part 2 of 2) 

*| Upon entry from the IKJEHDS1 routine, IKJEHHIS gets a save area, then sets 
up to convert the creation date from YMMDD format to MM/DD/YY. 

The creation date is converted and placed in the buffer. If no date was found, 
a default of 00/00/00 is placed in the buffer. This process is repeated for the 
expiration date. 

2 Then a check is made for password protection. If password protection applies, 
'PROTECTED' is placed in the buffer. Otherwise, a check is made for WRITE 
protection. If WRITE protection applies, 'WRITE' is placed in the buffer. 
Otherwise 'NONE' is placed in the buffer. 

Then the space obtained for the save area is freed and control returns to the 
IKJEHDS1 routine. See Diagram 11.1. 

Object Module: fKJEHDSI 
CSECT: /KJEHHIS 
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Diagram 11.4. LISTDS STATUS Processing (Fait 1 of 2) 


Input Process Output 






Diagram 11.4. LISTDS STATUS Processing (Part 2 of 2) 

SVC99 searches the DSAB chain for a data set name that matches the name in 
the data set list. The search is done to obtain allocation information about the 
date set name. If no match is found, control is returned to IKJEHDS1. 

2 When a dsname match is found, a check is made to see if HISTOR Y is also 

specified (in which case, the buffer is filled partially with HISTORY informa¬ 
tion that has not yet been written). If yes, the offset to the output buffer area 
is adjusted accordingly. 

Then the DDNAME is moved to the output buffer. 

The status bits are then tested for normal disposition, and the appropriate 
word (KEEP, DELETE, CAT LG, or UNCATLG) is placed in the buffer. 

After the output buffer offset is adjusted, the status bits are tested for 
disposition in the event of an abnormal termination. The appropriate 
disposition is placed in the buffer. 

Control returns to the IKJEHDS1 routine. See Diagram 11.1. 


Object Module: IKJEHDS1 
CSECT: IKJEHSTA 
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Diagram 11.5. LISTDS MEMBERS Processing (Part 2 of 2) 


1 After volume information has been printed, a check is made to see whether the 
current dsname is a member name. If not a member name, a check for label proc¬ 
essing is first made, then a check is made to see if the MEMBERS keyword is speci¬ 
fied (step 2). 

If the dsname was a member name, routine MNAMROUT is given control to print 
specific information for the member. If necessary, MNAMROUT issues a RDJFCB 
and passes control to DAIR to allocate the data set. 

2 Then LABEL processing takes place, if applicable (see Diagram 11.6). After this, 
a check is made to see if MEMBERS was specified. If no, processing continues 
from step 5 of Diagram 11.1. Otherwise control is passed to the MEMBERS inter¬ 
face routine, MEMROUT. 

3 A check is made to ensure that the organization is partitioned. If not, control 
returns to step 5 of Diagram 11.1. Otherwise the MEMBERS heading is written. 
Then a check is made to see if the JFCB has already been read. If yes, processing 
continues from step 4, below. Otherwise, DAIR is used to allocate the data set. 
Then the DDNAME is placed in DCBDDNAM of OBTDCB and an RDJFCB is 
issued prior to reading the PDS directory. Then control passes to IKJEHMEM. 
Possible messages: IKJ58502I, IKJ58514I 


4 IKJEHMEM initializes tables to contain the true and alias names, then reads the 
PDS directory into the tables. Name blocks are obtained and chained dynamically, 
as required. 

5 Then a true name is moved to the output buffer. The true name TTR is compared 
to all of the alias name TTRs. Applicable aliases are moved to the buffer. 
(MEMROUT's write routine, which uses PUTLINE, is used to write the buffer.) 
This action is repeated until all true names have been processed. Alias names not 
matching any true name are then grouped by TTR and written. A message is 
provided to indicate that no true name exists for them. Control returns to 
MEMROUT. 

Possible message: IKJ585011 

MEMROUT checks the return code, then returns control to step 5 of Diagram 11.1 
to process the next name in the list. 

Object Modules: IKJEHDS1, IKJEHMEM 
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Diagram 11.6. USTDS LABEL Processing (Part 1 of 2) 
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Diagram 11.6. LISTDS LABEL Processing (Part 2 of 2) 


1 After getting a save area, IKJEHLBL uses PUTLINE to write the heading for the 4 

DSCB. 

2 IKJEHLBL refers to DS1FMTID for the address of the DSCB information to be 
converted. The DSCB information is then converted from binary to hexadecimal 
and written one line at a time. Formatting consists of separating each field by a 
blank. 

3 DS1PTRDS is then checked to determine if any DSCBs are chained to the format 
1 DSCB just processed. If none, control returns to MEMBCHK in the IKJEHDS1 
routine. 


A check for a Format 3 DSCB is made. (A Format 3 DSCB is formatted as in 
step 2 and 3, above. If a Format 3 DSCB is found, control returns to the 
IKJEHDS1 routine after the DSCB is processed. 

If the DSCB is other than a Format 3 DSCB, no formatting takes place. That is, 
the information is converted to hexadecimal and dumped 36 bytes at a time. Then 
a check is made for another DSCB. If none, storage is freed and control returns to 
MEMBCHK in the IKJEHDS1 routine. 

Object Module: IKJEHDS1 
CSECT: IKJEHLBL 


If another DSCB is found, an OBTAIN is issued for it. 
Possible message: IKJ58505I 
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Diagram 12. OPERATOR Command Processing (Part 1 of 2) 
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Diagram 12. OPERATOR Command Processing (Fart 2 of 2) 


'I After the STAE and ATTEN exits are set up, SVCIOO checks the user's authority 
to enter the OPERATOR command. Information is passed to SVCIOO in the 
FIBPARMS parameter list. If the user is not authorized, OPERATOR will issue an 
error message and return control to the TMP. 

2 Use PUTGET to get a line of input from the terminal and to issue the command 
mode message if required. 

3 Scan the input line with IKJSCAN for valid syntax. If the subcommand syntax 
was invalid an error message is issued and PUTGET gets another line of input. 

4 Process OPERATOR subcommands. 

END 

• This routine is used to terminate processing due to an error or when an END 
subcommand is issued by the terminal user to terminate OPERATOR com¬ 
mand processing. SVCIOO is used to stop active monitors and to issue SVC34 
to schedule executions of the subcommand. All buffers are freed and service 
routines are deleted. Control is returned to the TMP. 


HELP 

• ATTACH the HELP command processor to send the terminal user the HELP 
information. If the ATTACH failed control is passed to step 4-END. 

• When HELP is finished, use DAIR to mark data sets used by HELP as available 
for allocation. If DAIR fails, control is passed to step 4-END. 

• Processing continues with step 2. 

Other 

• Check the subcommand name against a list of allowable names (DISPLAY, 
MONITOR, SEND, CANCEL, and STOPMN). If parameters were specified on 
the DISPLAY, MONITOR, CANCEL, or STOPMN subcommands, translate the 
operands to upper case for use by SVCIOO. 

• Send the console operator a message with the subcommand that was entered. 

• Initialize the FIBPARMS parameter list and use SVCIOO to validity check and 
to issue SVC34 to schedule executions of the subcommand. If the validity 
check fails, an error message is issued to the terminal user. Processing continues 
with step 3. If there is an error other than validity, processing continues with 
step 4-END. 


Object Modules: IKJEE100, IKJEE1A0, and IKJEE150 
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Diagram 13. OUTPUT Processing Summary (Part 2 of 2) 


1 Use SVC100 to post the TMP (IKJEFTSC) requesting IKJEFF76 be attached 
under a parallel task structure. Information is passed to IKJEFF76 in the 
FIBPARMS parameter list. IKJEFF76 checks the user's authorization to 
enter the command. If the user is not authorized to enter foreground initiated 
background commands, the system issues an error message and returns control 
to the TMP. 

Object Module: IKJCT466 

2 Use Parse to check the syntax of the command. 

Object Module: IKJCT469 

3 Use an installation exit to check the userid for authorization to use the 
requested function on the job specified. If there is no installation exit 
the IBM supplied exit IKJEFF53 is used. 

Object Module: IKJECT469 

4 Determine the operation to be performed: print, delete, or change the destim 
ation (station or class) of a data set. 

• To delete or change the destination of a data set, set up an interface to the 
subsystem and request the subsystem to perform the requested operation. 
Return control to the TMP. 

Object Modules: IKJCT469, IKJCT462 


• To print a data set: 

a. Use Dynamic Allocation to allocate a PRINT data set via the DAIR 
interface. 

Object Module: IKJCT469, IKJCT473 

b. Use the job entry subsystem to select all system output data sets for a 
specific jobname and class. 

Object Module: IKJCT462 

c. Use Dynamic Allocation to allocate a system output data set by data 
set name. 

Object Module: IKJCT462 

d. Process the system output data set until an end-of-file condition or an 
attention. 

For an end-of-file condition, check for more data sets. If there are no 
more, return control to the TMP. 

For an attention, process the requested subcommand and all remaining 
data sets and return control to the TMP. 

Object Modules: IKJCT462, IKJCT470. IKJCT471 , IKJCT463 
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Diagram 14. PROFILE Processing (Part 1 of 2) 

Input 



Process 


From 

TMP 



Check for no operands. If none, 
return to TMP. 

Check syntax. 


2 Check Parse output — 

if invalid syntax 
return to TMP. 


3 Set UPT to match operands. 

4 Check for character or line deletion 
change. 


g If LIST is specified, list users 
profile. 


g Return to TMP. 






Diagram 14. PROFILE Processing (Pari 2 of 2) 

Extended Description 

5 If the operand LIST has been specified, list the users profile. 

6 Free storage, set the return code, and return to the TMP. 
zero-means successful processing, 
non-zero—means unsuccessful processing. 

Object Module: IKJEFT82 

zero-means Parse was successful. 

3 Set the UPT (The User Profile Table) to conform to the user options, checked by 
Parse. 

4 If a new line or character deletion character was among the operands, issue a STCC 
macro to change the terminal line or character deletion characters. Check the 
return-code. 

• non-zero-means reissue a STCC macro with the former line or character 
delete characters, and issue an error message. 

• zero-means issue SVC100 to update »he PSCB with the new line-delete and 
character-delete change requests. 


*| Check the ECT for the presence of operands in CBUF (The Command Buffer). If 
there are none, issue a message to the user and return to the TMP. 

Invoke Parse to check the syntax of the operands. 

2 Check the Parse return code. 

non-zero—means an operand was not valid and prompting failed. Issue an error 
message unless the return code indicates the user was in noprompt mode. 
Return to the caller in any case. 



122 0S/VS2 TSO Command Processor Logic - Volume IV 


Diagram IS. PROTECT Command Processing (Part 1 of 2) 

Input Process 







Diagram 15. PROTECT Command Processing (Part 2 of 2) 


| Use Parse to scan and check the command for proper syntax. 

Possible messages: IKJ58102I , IKJS81121 

2 After checking the Parse return code, move the control password, if one was 
specified, to the SVC98 buffer. 

Possible message: IKJ58108I 

3 If the data set name was not fully qualified, it is fully qualified using IKJEHDEF 
(The Default Service Routine). 

Possible messages: IKJ581031 , IKJ581111 , IKJ581121 


4 Check the function to be performed, and fill in the parameter list (SVCPARMS) 
for SVC 98 accordingly. The first byte of the parameter list contains a hexadeci¬ 
mal value indicating the function, as follows. 

X'01' ADD an entry to the password data set. 

X'02* REPLACE an entry in the password data set. 

X*03* DELETE an entry from the password data set. 

X f 04’ LIST protection, security counter, and optional data information of 
a protected data set. (The last 80 bytes of the password data set 
entry for this data set password is placed in the 80 byte buffer 
pointed to by the SVC parameter list.) 

Issue SVC 98 return control to the TMP issuing error messages, depending on the 
return code provided by SVC 98. 

Possible messages: IKJ5810H , IKJ58101I, IKJS8104I , IKJ5810SI , IKJ58106I. 
IKJ58107I, IKJ581101 , IKJ581121 


Object Module: IKJEHPRO 
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Diagram 16. RENAME Command Processing (Parti of 2) 

Input Process 







Method of Operation 12S 


Diagram 16. RENAME Command Processing (Part 2 of 2) 


1 The Parse subroutine syntax checks the command. 

Possible messages: IKJ58202I. IKJ58223I 

Storage is obtained for work areas. 

2 A user id is prefixed if necessary. The data set name is scanned for asterisks. If 
none, prompting is done for any necessary qualification of data set names by the 
default routine. Then operation continues from step 4. If asterisks are found, 
they are checked to ensure that they occur in the same relative position within 
the fully qualified data set names. 

Possible messages: IKJ58206I # IKJ58208I, IKJ58209I, IKJ58218I , IKJ58225I , 
IKJ58227I 

3 If asterisks were found, the catalog information routine is used to look up candi¬ 
dates for renaming. 

Possible messages: IKJ582QU, IKJ58219I 

4 The new data set names are built in preparation for the renaming operation. 
Possible messages: IKJ58205I, IKJ58208I 

5 Allocation is done to make use of the system enqueueing facility which ensures that 
the data set is not renamed while some other user is using it. (Also, this enables 
the OPEN and CLOSE operation for partitioned members.) 

Possible messages: IKJ5820U , IKJ58202I , IKJ58211I, IKJ58212I , IKJ58213I, 
IKJ58214I, IKJ582151, IKJ58229I, IKJ58225l f IKJ58229I 


6a OPEN and BLDL are used to open the PDS. 

Possible messages: IKJ58203I , IKJS8204I , IKJ58207I , IKJ58217I 

7a STOW is used to assign the alias or new member name. 

Possible messages: IKJ58207I , IKJ58217/ f IKJS8223I , IKJ58226I 

8a The data set is closed and unallocated. 

Possible messages: IKJ58201I, IKJ58207I, IKJ58216I, IKJS8222I , IKJ58224I 

6 b RENAME is used to rename the data set. 

7b CATALOG is used to catalog new and uncatalog old. 

Possible messages: IKJ58210I, IKJ58227I, IKJ58228I 

8b Repeat from step 4, if applicable. 

Possible messages: IKJ582WI , IKJ58227I, IKJ58228I 

Object Module: IKJEHREN 
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Diagram 17.1. RUN Command Processing Overview (Part 1 of 2) 

Input Process 







Diagram 17.1. RUN Command Processing Overview (Part 2 of 2) 

Extended Description 


1 IKJEFROO uses Parse to scan and syntax check the RUN command. Prompting 
occurs if required parameters are missing or if syntactically incorrect parameters 
are present. 

2 Upon return from Parse, the return code is checked. If an error was encountered, a 
message is issued to the user; otherwise, processing continues. 

Control passes to a routine that examines the specified data set or member name 
and places applicable information into a buffer in WORKAREA. If the data set is 
fully qualified, an indicator is set. If a password is specified, the password and 
length are placed in WORKAREA. 

Then the data set type (ASM, etc) is determined and placed in the data set type 
buffer of WORKAREA. Parse is again used, if necessary, to prompt for the data 
set type. 

DAIR is then given control to search for a data set having the specified name. First 
the set of currently allocated data sets is searched; then if necessary, the system 
catalog. If the data set is found, processing continues; otherwise, the user is 
prompted for a respecification, and another search is made. 


3 When a data set is verified as existing, storage is obtained in shared subpool 78 
for an in>storage command list and a table (the List Source Descriptor) describing 
the list. See Diagram 17.2 for details of this operation. 

4 After the in-storage command list and List Source Descriptor are built, the address 
of the List Source Descriptor is placed in the STACK parameter list and control is 
passed to Stack. This routine places the command list on the input stack. 

Then control returns to the TMP. The TMP will select the next command from the 
top of the input stack. 

Object Module: IKJEFROO 
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Diagram 17.2. Building a RUN Command List (Part 1 of 2) 

Input Process 


WORKAREA 




Note: Shaded areas were previously filled in by DSNRTE 
(if applicable) from information found through the 
PDL. (See Diagram 17.1) 


Output 


Calculate amount of storage 
required. 


o 

^ Build Command list and List 

Source Descriptor. 


List Source Descriptor 


b 

c 

1 

Rese 

rved 


I I T 


WORKAREA 


DSNBUF 

DSLENG 


MBRBUF 

PASSBUF 

QUALBUF 


Set to value by STACK 


| List Source Descriptor 


Communication ECB 


7S 


Command List Buffers 

Various buffers for 
commands, 
parameters, etc. 

For example; 

CMDNAME, DSNPARM, 
etc. 

TV 


a — | command list, 
b — indicates varioble 
recorder. 

c — command list length, 
d — | next byte. 



Parse parameter list information. 
-STACK parameter list. 


DAIR parameter list. 


Service routine parameter list. 

- Buffer for member nome, if any, and length. 

-Buffer for possword, if any, and length. 
Buffer for right-hand qualifier 


of data set name. 




Diagram 17.2. Building a RUN Command List (Pari 2 of 2) 


Extended Description 


1 WORK ABE A fields and parse information previously located through the PDL 

are examined to calculate the amount of storage required for the command list. 

Included in the calculation are: 

• The length of the List Source Descriptor (16 bytes). 

• The size of the compiler command. 

• The length of the data set name. 

• Compiler parameters, if any. 

o LOADGO command size (for ASM, FORT, PLI with OPT operand, or 
COBOL). This size includes control information length; LOADGO length; 
LOADGO data set name length; the length of the WHEN/END command, 
which is used to prevent execution of the program in the event the compiler 
does not complete successfully; parameter information, if any; COBLIB, 
PLIBASE, and FORTLIB length (for COBOL, PLI with OPT operand, and 
FORT data sets, LIB operand length, including the length of the data set list 
contained within parentheses). 


2 The parameters are checked for validity with compiler types. Issue a message if 
they are invalid. 

The command list and List Descriptor are built. The List Source Descriptor is 
filled in as the command list is constructed. 

First, the compiler command (type) is built. Control information consists of a 
two-byte length field followed by two bytes containing 0. The compiler command 
is moved to the appropriate buffer (CMDNAME). 

Then the data set name is moved to the command list buffer (DSNPARM). 

If a compiler parameter is specified (for BASIC, IPLI, or GOFORT), it is placed 
in the buffer, along with the parameter length. 

If the compiler is ASM, FORT, PLI with OPT operand, or COBOL, the WHEN 
command is built and placed in the list. Then the LOADGO command is created. 
This consists of placing in the buffer the proper data set name, applicable param¬ 
eters, and for the FORT, PLIBASE, and COBOL data sets, FORTLIB or COBLIB, t 
respectively. The length of the LOADGO command is placed in the control field. 

After the command list is complete, it is placed on the input stack (See step 4 of 
Diagram 17.1) 


Object Module: IKJEFROO 
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Diagram 18.1. SEND Overview and Operator Processing (Part 1 of 2) 






Diagram 18.1. SEND Overview and Operator Processing (Part 2 of 2) 

1 Use Parse to syntax check operands. 

2 It Parse output of command operands shows the command type is USER, process. 
See Diagram 18.2. 

3 Otherwise command type is Operator or console id. Issue a WTO macro 
instruction. 

4 Return control to the TMP. 


Object Module: IKJEES10 
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Diagram 18.2. SEND User Processing (Part 1 of 2) 


Input Process 




Method of Operation 133 


Diagram 18.2. SEND User Processing (Part 2 of 2) 


1 Check SEND command for a SAVE parameter. )f the SAVE parameter was used, 
see Diagram 18.3. 

2 Check for an used as a userid. If an was used, get the userid from the Pro¬ 
tected Step Control Block (PSCB). 

3 Use TPUT (SVC93) to send a message to all users specified in the SEND 
command. 

4 Send a warning message to the issuer of the SEND command identifying all speci¬ 
fied users not receiving messages or at a busy terminal. 

For users specified in the SEND command but not logged on the system, see 
Diagram 18.3. 

Object Module: IKJEES11 
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Diagram 18.3. Adding SEND Text to the Broadcast Data Set (Part 1 of 2) 

Input Process 



Output 


SYS1 -BRODCAST 
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Diagram 18.3. Adding SEND Text to the Broadcast Data Set (Part 2 of 2) 

1 Allocate SYS1 .BRODCAST Using DAIR. 

2 On successful completion, open SYS1.BRODCAST and enqueue on record 1. 

3 Search the directory to find an entry for the userid. 

4 Messages are queued in the data set. Put the SEND message text on the queue. 

5 Continue processing all userids. 

0 Close SYS1 .BRODCAST and free it using DAIR. Return to the caller. 
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Diagram 19.1. SUBMIT Processing (Part 2 of 2) 

1 Use SVC100 to post the TMP (IKJEFTSC) requesting IKJEFF76 be attached 
under a parallel task structure. Information is passed to IKJEFF76 in the 

FI BP ARMS parameter list. IKJEFF76 checks the user's authorization to 
enter the command. If the user is not authorized to enter foreground initiated 
background commands, the system issues an error message and returns control 
to the TMP. 

Object Module: IKJEFF01 

2 Use Parse to check the command syntax. Parse validity check exit IKJEFF16 
is entered to get the fully qualified data set name from the Default Service 
Routine. 

Object Module: IKJEFF04 

3 Allocate, using DAIR, input data sets containing JCL. Also build control 
and history tables for JCL processing. 

Object Module: IKJEFF04 


4 Use Dynamic Allocation to allocate a job entry subsystem internal reader and 
open the internal reader. 

Object Module: IKJEFF15 

For an attention or ABEND, the interna) reader will be closed and the last 
job submitted will be flushed. 

Object Modules: IKJEFF20, IKJEFF15 

0 Read JCL statement and process. 

Object Module: IKJEFF05. See Diagram 19.2 

0 Process the next data set when an end-of-file is encountered. After the last file 
is processed, control is returned to the TMP. 

Object Module: IKJEFF05 
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Diagram 19.2. SUBMIT JCL Processing (Parti of 2) 


Input Proce 



Output 




Diagram 19.2. SUBMIT JCL Processing (Part 2 of 2) 


1 Identify the statement as data or type of JCL. 

Object Module: IKJEFF07 

• First record that is not a subsystem control card for first data set and not a JOB 
statement, create a JOB statement. 

Object Module: IKJFFF08 

• JOB statement. Verify that the job name is not equal to th8 userid. If it is 
equal, the user is prompted for an identifying character. 

Object Module: IKJEFF13 

• JCL statement that requires user exit (IKJEFF10) for installation required 
processing. 

Object Module: IKJEFF09 t IK JEFF 10 

2 Write JCL or data statement to job entry subsystem internal reader data set. 


3 Check for end-of-job. If an end-of-job, get a jobid from the job entry subsystem 
for the ‘job submitted' message. If not end-of-job get the next statement. 

(See Diagram 19.1.) 


Object Module: IKJEFF05 
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Diagram 20. TERMINAL Operational Characteristics (Part 2 of 2) 

Extended Description 


1 Check the ECTNOPD bit of the ECT to see if there are any TERMINAL keywords. 
If none, the command is ignored, a message is printed and control returns to the 
TMP. 

2 If LINE or SECOND keywords are provided. Parse will temporarily pass control 
back to the appropriate routine for validity checking. When Parse returns control 
to IKJEFT80 for mainline processing/it provides a return cod8 that informs 
IKJEFT80 of the results of the validity checks. 

3 IKJEFT80 checks the PDL pointer (PDEPTR) to see if the PDL is zeros. If it is, 
the terminal command is ignored, a message is written and control returns to the 
TMP. 


4 The TERMINAL status macros are set up and issued according to the specified 
keyword values. The end result is the placing of values in output fields, as shown 
at the right of this diagram. 

5 TERMINAL frees main storage, sets return codes and returns control to the TMP. 
zero means successful processing. 

non-zero ('12') means unsuccessful processing. 

Object Module: IKJEFT80 
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Diagram 21. TIME Command Processing (Part 2 of 2) 


1 The TIME macro obtains the present time of day and date. If Timing Services 
indicates the hardware clock is inoperative, control is passed to TIM ERR and an 
error message is issued. Control is then returned to the TMP. 

2 Convert the time and date returned by the TIME macro to printable format and 
save in a message buffer. 

3 Convert the cumulative CPU time to printable format and save in a message buffer. 
The CPU time is maintained in the ASCB in store-clock units. 

4 Use SVC95 (SYSEVENT), issued with code 38, to obtain cumulative service units 
from the System Resources Manager. Convert the returned data to a printable 
format and save in a message buffer. 

5 Calculate total session time by subtracting the LOGON time of day from the pres¬ 
ent time. The LOGON time of day is maintained in the PSCB. Convert the session 
time to printable format and save in a message buffer. 

g Use the PUTLINE service routine to send the TIME message to the terminal. 
Control is returned to the TMP. 


Object Module: IKJEFT25 
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Process 


Output 


Diagram 22. WHEN/END Processing (Parti of 2) 

Input 



INPUT STACK 

cH 1 
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Diagram 22. WHEN/END Processing (Part 2 of 2) 

Extended Description 

1 Test for previous command processor abend. If abend occurred, issue message and 
return to caller. If the command is END, delete the top element from the stack 
and return to the caller. 

2 Use Parse to check the syntax of the WHEN command. 

3 Check Parse return code, if nonzero Parse was unsuccessful. Issue a message and 

return to the caller, 

4 Compare the WHEN relational operator with the completion coda of the previous 
command processor. 

5 If condition is not met, return to the caller. 

g If condition is met, use STACK to delete the top entry in the input stack and add 

the action command to the stack if it is not the END command. Return to the 
caller. 

Object Module: IKJEFE11 
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Directory 


Name 

Type 

Load 

Object 

AKJLKLO1 

Object 

AKJLKLO1 



Entry 

AKJLKLO1 

AKJLKLO1 

AKJLKL02 

Object 

AKJLKLO2 



Entry 

AKJLKLO2 

AKJLKLO2 

AKJLKMSG 

Object 

Alias 

AKJLKLO1 


ALLOC 

ALLOCATE 

IKJEFD30 

ALLOCATE 

Load 


IKJEFD30 

ATTR 

Alias 

ATTRIB 

IKJEFD31 

IKJEFD32 

IKJEFD33 

IKJEFD34 

IKJEFD35 

IKJEFD36 

IKJEFD37 

IKJEFATT 

ATTRIB 

Load 


IKJEFATT 

CALL 

Alias 

IKJEFT02 

IKJEFT08 

CANCEL 

Load 


IKJEFF58 

END 

Alias 

IKJEFE11 

IKJEFE11 

EX 

Alias 

EXEC 

IKJCT430 

EXEC 

Load 


IKJCT430 

FREE 

Load 


IKJCT431 

IKJCT432 

IKJCT435 

IKJEFD20 

H 

Alias 

HELP 

IKJEFH01 

HELP 

Load 


IKJEFHOO 

IEEVSDIO 

Object 

SEND 

IKJEFH01 

IKJEFH02 

IKJEFH03 

IGC0010{ 
({^x'CO*) 

IKJCT430 

Load 


IKJEFFOO 

Object 

EXEC 

IKJEFF20 


Entry 

EXEC 

IKJCT430 

IKJCT431 

Object 

Object 

EXEC 


IKJCT432 

EXEC 


IKJCT435 

Object 

EXEC 


IKJCT460 

Object 

IKJCT469 


IKJCT462 

Object 

IKJCT469 


IKJCT463 

Object 

Object 

IKJCT469 


IKJCT464 

IKJCT469 


IKJCT466 

Object 

OUTPUT 



Entry 

OUTPUT 

IKJCT466 

IKJCT467 

Object 

IKJCT469 



Alias 

IKJCT469 

IKJCT467 

IKJCT469 

Load 


IKJCT460 


Object 

Entry 

IKJCT469 

IKJCT469 

IKJCT462 

IKJCT463 

IKJCT464 

IKJCT469 

IKJCT470 

IKJCT471 

IKJCT472 

IKJCT473 

IKJCT469 


Entry 

Alias 

CP 

AKJLKLO1 


LINK/LOADGO 
LINK/LOADGO 

AKJLKLO2 


LINK/LOADGO 
LINK/LOADGO 
LINK/LOADGO 

IKJEFD30 


ALLOCATE 

IKJEFD30 

ALLOC 

ALLOCATE 

ALLOCATE 

ALLOCATE 

ALLOCATE 

ALLOCATE 

ALLOCATE 

ALLOCATE 

ALLOCATE 

IKJEFATT 


ATTRIB 

IKJEFATT 

ATTR 

ATTRIB 

IKJEFT08 


CALL 

IKJEFF58 


CANCEL/STATUS 

IKJEFE11 


WHEN/END 

IKJCT430 


EXEC 

IKJCT430 

EX 

EXEC 

EXEC 

EXEC 

EXEC 

IKJEFD20 


FREE 

IKJEFH01 


HELP 

HELP 

IKJEFH01 

H 

HELP 

HELP 

HELP 

SEND 

IKJEFFOO 


See Note 



See Note 

IKJCT430 


EXEC 

EXEC 

EXEC 

EXEC 

EXEC 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

IKJCT466 

OUT 

OUTPUT 


OUT 

OUTPUT 


IKJCT467 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

IKJCT469 


OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

IKJCT469 


OUTPUT 

OUTPUT 


Note: CANCEL/OPERATOR/OUTPUT/PROFILE/STATUS/SUBMIT 
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Name 

Type 

Load 

Object 

Entry 

Alias 

CP 

IKJCT470 

Object 

IKJCT469 




OUTPUT 

IKJCT471 

Object 

IKJCT469 




OUTPUT 

IKJCT472 

Object 

IKJCT469 




OUTPUT 

IKJCT473 

Object 

IKJCT469 




OUTPUT 

IKJEES10 

Object 

SEND 


IKJEES10 

SE 

SEND 


Entry 

SEND 

IKJEES10 


SE 

SEND 

IKJEES11 

Object 

SEND 




SEND 

IKJEES20 

Object 

SEND 




SEND 

IKJEES70 

Object 

IKJEES73 


IKJEES73 


LISTBC 



LISTBC 


IKJEES70 

LISTB 

LISTBC 


Entry 

LISTBC 

IKJEES70 


LISTB 

LISTBC 

IKJEES73 

Load 


IKJEES70 

IKJEES73 


LISTBC 




IKJEES74 



LISTBC 




IKJEES75 



LISTBC 


Entry 

IKJEES73 

IKJEES70 



LISTBC 

IKJEES74 

Object 

IKJEES73 




LISTBC 



LISTBC 




LISTBC 

IKJEES75 

Object 

IKJEES73 




LISTBC 



LISTBC 




LISTBC 

IKJEE1A0 

Object 

OPERATOR 




OPERATOR 

IKJEE100 

Object 

OPERATOR 


IKJEE101 


OPERATOR 





IKJEE100 

OPER 

OPERATOR 


Entry 

OPERATOR 

IKJEE100 


OPER 

OPERATOR 

IKJEE101 

Entry 

OPERATOR 

IKJEE100 



OPERATOR 

IKJEE150 

Object 

OPERATOR 




OPERATOR 

IKJEFATT 

Object 

ATTRIB 


IKJEFATT 

ATTR 

ATTRIB 


Entry 

ATTRIB 

IKJEFATT 


ATTR 

ATTRIB 

IKJEFD20 

Object 

FREE 


IKJEFD20 


FREE 


Entry 

FREE 

IKJEFD20 



FREE 

IKJEFD30 

Object 

ALLOCATE 


IKJEFD30 

ALLOC 

ALLOCATE 


Entry 

ALLOCATE 

IKJEFD30 


ALLOC 

ALLOCATE 

IKJEFD31 

Object 

ALLOCATE 




ALLOCATE 

IKJEFD32 

Object 

ALLOCATE 




ALLOCATE 

IKJEFD33 

Object 

ALLOCATE 




ALLOCATE 

IKJEFD34 

Object 

ALLOCATE 




ALLOCATE 

IKJEFD35 

Object 

ALLOCATE 




ALLOCATE 

IKJEFD36 

Object 

ALLOCATE 




ALLOCATE 

IKJEFD37 

Object 

ALLOCATE 




ALLOCATE 

IKJEFE11 

Load 


IKJEFEll 

IKJEFEll 

WHEN 

WHEN/END 






END 

WHEN/END 




IKJEFE15 



WHEN/END 




IKJEFE16 



WHEN/END 


Object 

IKJEFE11 


IKJEFEll 

WHEN 

WHEN/END 






END 

WHEN/END 


Entry 

IKJEFEll 

IKJEFEll 


WHEN 

WHEN/END 






END 

WHEN/END 

IKJEFE15 

Object 

IKJEFEll 




WHEN/END 

IKJEFE16 

Object 

IKJEFEll 




WHEN/END 

IKJEFFCA 

Alias 

STATUS 

IKJEFF56 

IKJEFF56 


CANCEL/STATUS 

IKJEFF00 

Object 

IGC0010 { 


IKJEFF00 


See Note 



({=X , C0') 






Entry 

IGC0010{ 

IKJEFF00 



See Note 



({^X'CO') 





IKJEFF01 

Object 

SUBMIT 


IKJEFF01 

SUB 

SUBMIT 


Entry 

SUBMIT 

IKJEFF01 


SUB 

SUBMIT 

IKJEFF02 

Load 


IKJEFF02 

IKJEFFO2 


SUBMIT 


Object 

IKJEFF02 


IKJEFFO2 


SUBMIT 


Entry 

IKJEFF02 

IKJEFF02 



SUBMIT 

IKJEFF03 

Object 

IKJEFF04 



IKJEFFO3 

SUBMIT 


Alias 

IKJEFF04 

IKJEFF03 



SUBMIT 

IKJEFF04 

Load 


IKJEFF02 



SUBMIT 




IKJEFFO3 


IKJEFFO3 

SUBMIT 




IKJEFF04 

IKJEFFO4 


SUBMIT 




IKJEFFO5 



SUBMIT 




IKJEFFO7 



SUBMIT 


Note: CANCEL/OPERATOR/OUTPUT/PROFILE/STATUS/SUBMIT 
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Name 

Type 

Object 

Load 

IKJEFF04 

Object 

IKJEFF08 

IKJEFF09 

IKJEFF13 

IKJEFF15 

IKJEFF16 


Entry 

IKJEFF04 

IKJEFF04 

IKJEFF05 

Object 

IKJEFF04 


IKJEFF07 

Object 

IKJEFF04 


IKJEFF08 

Object 

IKJEFF04 


IKJEFF09 

Object 

IKJEFF04 


IKJEFF10 

Load 

Object 

IKJEFF10 

IKJEFF10 


Entry 

IKJEFF10 

IKJEFF10 

IKJEFF13 

Object 

IKJEFF04 


IKJEFF15 

Object 

IKJEFF04 


IKJEFF16 

Object 

IKJEFF04 


IKJEFF19 

Load 

Object 

IKJEFF19 

IKJEFF19 


Entry 

IKJEFF19 

IKJEFF19 

IKJEFF20 

Object 

IGC0010{ 

({=x , C0 1 ) 


IKJEFF49 

Object 

IKJEFF57 


IKJEFFS0 

Load 

Object 

IKJEFFS0 

IKJEFF02 
IKJEFF50 
IKJEFF55 


Entry 

IKJEFFS0 

IKJEFF50 

IKJEFFS1 

Load 

Object 

IKJEFF51 

IKJEFF51 
IKJEFF52 
IKJEFF54 


Entry 

IKJEFF51 

IKJEFF51 

IKJEFFS2 

Object 

IKJEFF51 


IKJEFF53 

Load 

Object 

IKJEFF53 

IKJEFF53 


Entry 

Object 

IKJEFF53 

IKJEFF53 

IKJEFFS4 

IKJEFF51 


IKJEFFS5 

Object 

Alias 

IKJEFF50 



IKJEFFS0 

IKJEFF55 

IKJEFFS6 

Object 

STATUS 



Entry 

STATUS 

IKJEFF56 

IKJEFFS7 

Load 

Object 

IKJEFF57 

IKJEFF59 

IKJEFF57 


Entry 

IKJEFF57 

IKJEFF57 

IKJEFF58 

Object 

CANCEL 



Entry 

Object 

CANCEL 

IKJEFF58 

IKJEFF76 

IGC0010{ 

({=x 1 CO 1 ) 


IKJEFF77 

Object 

I6C0010{ 

({ =x'C0 1 ) 


IKJEFT08 

Load 

Object 

IKJEFT02 

IKJEFT08 


Entry 

IKJEFT02 

IKJEFT0 8 

IKJEFHGO 

Object 

HELP 


IKJEFH01 

Object 

HELP 



Entry 

Object 

HELP 

IKJEFH01 

IKJEFH02 

HELP 


IKJEFH03 

Object 

HELP 


IKJEFR00 

Load 


IKJEFR00 


Entry 

Alias 

CP 

SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

IKJEFF04 


SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

IKJEFF10 


SUBMIT 

IKJEFF10 


SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

SUBMIT 

IKJEFF19 


SUBMIT 

IKJEFF19 


SUBMIT 

SUBMIT 

See Note 



CANCEL/STATUS 

CANCEL/STATUS 

IKJEFF50 

IKJEFFS5 

CANCEL/STATUS 

CANCEL/STATUS 

IKJEFF50 


CANCEL/STATUS 

CANCEL/STATUS 

IKJEFF51 


CANCEL/STATUS 

CANCEL/STATUS 

CANCEL/STATUS 

IKJEFF51 


CANCEL/STATUS 
CANCEL/STATUS 
CANCEL/STATUS 

IKJEFF53 

IKJEFF53 


CANCEL/STATUS 



CANCEL/STATUS 


IKJEFF55 

CANCEL/STATUS 

CANCEL/STATUS 

IKJEFF56 

ST 

CANCEL/STATUS 


IKJEFFCA 

ST 

CANCEL/STATUS 


IKJEFFCA 

CANCEL/STATUS 

IKJEFF57 


CANCEL/STATUS 

IKJEFF57 


CANCEL/STATUS 
CANCEL/STATUS 

IKJEFF58 


CANCEL/STATUS 

CANCEL/STATUS 

IKJEFF76 


See Note 

IKJEFF77 


See Note 

IKJEFT08 

CALL 

CALL 

IKJEFT08 

CALL 

CALL 


CALL 

CALL 

HELP 

IKJEFH01 

H 

HELP 


H 

HELP 

HELP 

HELP 

IKJEFR00 

RUN 

RUN 


R 

RUN 


Note: CANCEL/OPERATOR/OUTPUT/PROFILE/STATUS/SUBMIT 
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Name 

Type 

Load 

Object 

Entry 

Alias 

CP 


Object 

IKJEFR00 


IKJEFROO 

RUN 

RUN 






R 

RUN 


Entry 

IKJEFR00 

IKJEFROO 


RUN 

RUN 

IKJEFT25 

Load 


IKJEFT25 

IKJEFT25 

TIME 

TIME 


Object 

IKJEFT25 


IKJEFT25 

TIME 

TIME 


Entry 

IKJEFT25 

IKJEFT25 


TIME 

TIME 

IKJEFT80 

Object 

TERMINAL 


IKJEFT80 

TERM 

TERMINAL 


Entry 

TERMINAL 

IKJEFT80 


TERM 

TERMINAL 

IKJEFT82 

Object 

PROFILE 


IKJEFT82 

PROF 

PROFILE 


Entry 

PROFILE 

IKJEFT82 


PROF 

PROFILE 

IKJEHAL1 

Load 


IKJEHAL1 

IKJEHAL1 

LISTA 

LISTALC 


Object 

IKJEHAL1 


IKJEHALl 

LISTA 

LISTALC 


Entry 

IKJEHAL1 

IKJEHAL1 


LISTA 

LISTALC 

IKJEHDS1 

Load 


IKJEHDS1 

IKJEHDS1 

LISTDS 

LISTDS 


Object 

IKJEHDS1 


IKJEHDS1 

LISTDS 

LISTDS 


Entry 

IKJEHDS1 

IKJEHDS1 


LISTDS 

LISTDS 

IKJEHMEM 

Load 


IKJEHMEM 

IKJEHMEM 


LISTDS/LISTALC 


Object 

IKJEHMEM 


IKJEHMEM 


LISTDS/LISTALC 


Entry 

IKJEHMEM 

IKJEHMEM 



LISTDS/LISTALC 

IKJEHPRO 

Load 


IKJEHPRO 

IKJEHPRO 

PROTECT 

PROTECT 


Object 

IKJEHPRO 


IKHEHPRO 

PROTECT 

PROTECT 


Entry 

IKJEHPRO 

IKJEHPRO 

IKJEHPRO 

PROTECT 

PROTECT 

IKJEHREN 

Load 


IKJEHREN 

IKJEHREN 

RENAME 

RENAME 


Object 

IKJEHREN 


IKJEHREN 

RENAME 

RENAME 


Entry 

IKJEHREN 

IKJEHREN 


RENAME 

RENAME 

LINK 

Load 


LINK 

LINK 


LINK/LOADGO 


Object 

LINK 


LINK 


LINK/LOADGO 


Entry 

LINK 

LINK 



LINK/LOADGO 

LISTA 

Alias 

IKJEHAL1 

IKJEHAL1 

IKJEHALl 


LISTALC 

LISTB 

Alias 

LISTBC 

IKJEES70 

IKJEES70 


LISTBC 

LISTBC 

Load 


IKJEES70 

IKJEES70 

LISTB 

LISTBC 




IKJEES74 



LISTBC 




IKJEES75 



LISTBC 

LISTDS 

Alias 

IKJEHDS1 

IKJEHDS1 

IKJEHDS1 


LISTDS 

LOAD 

Alias 

LOADGO 

LOADGO 

LOADGO 


LINK/LOADGO 

LOADGO 

Load 


LOADGO 

LOADGO 

LOAD 

LINK/LOADGO 


Object 

LOADGO 


LOADGO 

LOAD 

LINK/LOADGO 


Entry 

LOADGO 

LOADGO 


LOAD 

LINK/LOADGO 

OPER 

Alias 

OPERATOR 

IKJEE100 

IKJEE100 


OPERATOR 

OPERATOR 

Load 


IKJEE1A0 



OPERATOR 




IKJEE100 

IKJEE101 


OPERATOR 





IKJEE100 

OPER 

OPERATOR 




IKJEE150 



OPERATOR 

OUT 

Alias 

OUTPUT 

IKJCT466 

IKJCT466 


OUTPUT 

OUTPUT 

Load 


IKJCT466 

IKJCT466 

OUT 

OUTPUT 

PROF 

Alias 

PROFILE 

IKJEFT82 

IKJEFT82 


PROFILE 

PROFILE 

Load 


IKJEFT82 

IKJEFT82 

PROF 

PROFILE 

PROTECT 

Alias 

IKJEHPRO 

IKJEHPRO 

IKJEHPRO 


PROTECT 

R 

Alias 

IKJEFR00 

IKJEFROO 



RUN 

RENAME 

Alias 

IKJEHREN 

IKJEHREN 

IKJEHREN 


RENAME 

RUN 

Alias 

IKJEFR00 

IKJEFROO 

IKJEFROO 


RUN 

SE 

Alias 

SEND 

IKJEES10 

IKJEES10 


SEND 

SEND 

Load 


IEEVSDIO 



SEND 




IKJEES10 

IKJEES10 

SE 

SEND 




IKJEES11 



SEND 




IKJEES20 



SEND 

ST 

Alias 

STATUS 

IKJEFF56 

IKJEFFS6 


CANCEL/STATUS 

STATUS 

Load 


IKJEFF56 

IKJEFFS6 

ST 

CANCEL/STATUS 






IKJEFFCA 

CANCEL/STATUS 

SUB 

Alias 

SUBMIT 

IKJEFF01 

IKJEFF01 


SUBMIT 

SUBMIT 

Load 


IKJEFF01 

IKJEFF01 

SUB 

SUBMIT 

TERM 

Alias 

TERMINAL 

IKJEFT80 

IKJEFT80 


TERMINAL 

TERMINAL 

Load 


IKJEFT80 

IKJEFT80 

TERM 

TERMINAL 

TIME 

Alias 

IKJEFT25 

IKJEFT25 

IKJEFT25 


TIME 

WHEN 

Alias 

IKJEFE11 

IKJEFE11 

IKJEFE11 


WHEN/END 
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Data Area Usage 


Acronym 

Macro 

Common Name 

Command Processor 

Module/Access 

ACB 

IFGACB 

VSAM Access Method 

Control Block 

OUTPUT 

SUBMIT 

IKJCT462 (create) 
IKJEFF15 (create) 

ALLOCWA 

IKJZT430 

ALLOCATE Work Area 

ALLOCATE 

IKJEFD30 (create) 
IKJEFD32 (alter) 
IKJEFD33 (alter) 
IKJEFD34 (alter) 
IKJEFD35 (alter) 
IKJEFD36 (alter) 
IKJEFD37 (alter) 

COMPROC 

IKJEXEC 

Command Procedure Storage Block 

EXEC 

IKJCT431 (create) 
IKJCT430 (alter) 
IKJCT432 (alter) 

CONTAB 

IKJEFFCT 

SUBMIT Internal Control Table 

SUBMIT 

IKJEFF04 (create) 
IKJEFF15 (alter) 

CPPL 

IKJCPPL 

Command Processor Parameter List 

OUTPUT 

IKJCT463 (create) 

CSOA 

IKJCSOA 

Command Scan Output Area 

ALLOCATE 

EXEC 

OPERATOR 

IKJEFD36 (create) 
IKJCT430 (create) 
IKJEE100 (create) 
IKJEE150 (create) 

CSPL 

IKJCSPL 

Command Scan Parameter List 

ALLOCATE 

EXEC 

OPERATOR 

OUTPUT 

IKJEFD36 (create) 
IKJCT430 (create) 
IKJEE100 (create) 
IKJEE150 (create) 
IKJCT463 (create) 

CTGFL 

IEZCTCFL 

VSAM Catalog Control Field List 

LISTALC 

LI STDS 

RENAME 

IKJEHAL1 (create) 
IKJEHDS1 (create) 
IKJEHCIR (create) 

CTGPL 

IEZCTGPL 

VSAM Catalog Parameter List 

LISTALC 

LISTDS 

RENAME 

IKJEHAL1 (create) 
IKJEHDS1 (create) 
IKJEHCIR (create) 

DAPBOO 

IKJDAPOO 

OAIR Parameter Block 00 

EXEC 

IKJCT430 (create) 

DAPB04 

IKJDAP04 

OAIR Parameter Block 04 

ALLOCATE 

LINK/LOADGO 

OUTPUT 

RUN 

IKJEFD32 (create) 
AKJLKL01 (create) 
IKJCT473 (create) 
IKJEFROO (create) 

DAPB08 

IKJDAP08 

DAIR Parameter Block 08 

CALL 

EXEC 

LINK/LOAOGO 

LISTDS 

OUTPUT 

RENAME 

SUBMIT 

IKJEFGOO (create) 
IKJCT430 (create) 
AKJLKL01 (create) 
IKJEHDS1 (create) 
IKJCT473 (create) 
IKJEHREN (create) 
IKJEFF04 (alter) 
IKJEFF16 (create) 
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Acronym 

Macro 

Common Name 

Command Processor 

Module/Access 

DAPBOC 

IKJDAPOC 

DAIR Parameter Block OC 

LINK/LOADGO 

AKJLKL01 (create) 

DAPB10 

IKJDAP10 

DAIR Parameter Block 10 

LINK/LOADGO 

AKJLKU01 (create) 
AKJLKL02 (create) 

DAPB18 

IKJDAP18 

DAIR Parameter Block 18 

EXEC 

IKJCT430 (create) 




LINK/LOADGO 

AKJLKU01 (create) 




OUTPUT 

IKJCT473 (create) 




PROTECT 

IKJEHPRO (create) 




RENAME 

IKJEHREN (create) 

DAPB1C 

IKJDAP1C 

DAIR Parameter Block 1C 

LINK/LOADGO 

AKJLKL01 (create) 




OUTPUT 

IKJCT473 (create) 

DAPB24 

IKJDAP24 

DAIR Parameter Block 24 

HELP 

IKJEFH01 

DAPD28 

IKJDAP28 

DAIR Parameter Block 28 

LINK/LOADGO 

AKJLKL01 (create) 




SUBMIT 

IKJEFF04 (create) 

DAPB2C 

IKJDAP2C 

DAIR Parameter Block 2C 

LISTDS 

IKJEHDS1 (create) 




OPERATOR 

IKJEE100 (create) 




OUTPUT 

IKJCT463 (create) 

DAPB34 

IKJDAP34 

DAIR Parameter Block 34 

LINK/LOADGO 

AKJLKUD1 (create) 

DAPL 

IKJDAPL 

DAIR Parameter List 

ALLOCATE 

IKJEFD32 (create) 




CALL 

IKJEFGOO (create) 




EXEC 

IKJCT430 (create) 




HELP 

IKJEFH01 (create) 




LINK/LOADGO 

AKJLKL01 (create) 
AKJLKL02 (create) 




LISTALC 

IKJEHAL1 (create) 




LISTDS 

IKJEHOS1 (create) 




OPERATOR 

IKJEE100 (create) 




OUTPUT 

IKJCT463 (create) 
IKJCT473 (create) 




PROTECT 

IKJEHPRO (create) 




RENAME 

IKJEHREN (create) 




RUN 

IKJEFROO (create) 




SUBMIT 

IKJEFF04 (create) 

DOB 

DCBD 

Data Control Block DSECT 

HELP 

IKJEFH01 (create) 




LISTBC 

IKJEES75 (create) 




OUTPUT 

IKJCT463 (create) 
IKJCT469 (create) 
IKJCT471 (alter) 




SEND 

IEEVSOIO (create) 




SUBMIT 

IKJEFF05 (create) 

DFPARMS 

IKJEFFDF 

DAIRFAIL (IKJEFF18) Parameter 

ALLOCATE 

IKJEFD32 (create) 



List 

ATTRIB 

IKJEFATT (create) 




EXEC 

IKJCT430 (create) 




OUTPUT 

IKJCT467 (create) 




SUBMIT 

IKJEFF04 (create) 


IKJEFF15 (create) 
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Acronym 

Macro 

Common Name 

Command Processor 

Module/Access 

DFPB 

IKJDFPB 

Default Parameter Block 

LISTDS 

PROTECT 

RENAME 

IKJEHDS1 (create) 
IKJEHPRO (create) 
IKJEHREN (create) 

DFPL 

IKJDFPL 

Default Parameter List 

LISTDS 

PROTECT 

RENAME 

IKJEHDS1 (create) 
IKJEHPRO (create) 
IKJEHREN (create) 

DOS ADDED 

IKJEFFD8 

SUBMIT Extension to DAPB08 

SUBMIT 

IKJEFF04 (alter) 
IKJEFFIB (create) 

ECB 

IHAECB 

Event Control Block 

CANCEL/STATUS 

OUTPUT 

SUBMIT 

IKJEFF50 (create) 
IKJEFF56 (create) 
IKJEFF57 (create) 
IKJCT463 (create) 
IKJCT469 (create) 
IKJEFF01 (create) 
IKJEFF04 (create) 
IKJEFF19 (create) 

ECDA 

IKJEXEC 

Phase 1 Exit Common Data Area 

EXEC 

IKJCT430 (create) 
IKJCT431 (alter) 
IKJCT432 (alter) 

ECT 

IKJECT 

Environment Control Table 

CALL 

LINK/LOADGO 

OPERATOR 

OUTPUT 

IKJEFGOO (alter) 
AKJLKL02 (alter) 
IKJEE1S0 (alter) 
IKJCT460 (alter) 

EXECDATA 

IKJEXEC 

EXEC Command Control Data Area 

EXEC 

IKJCT431 (create) 

ESTAEWA 


ESTAE Exit Work Area 

OUTPUT 

IKJCT460 (alter) 
IKJCT464 (alter) 
IKJCT469 (create) 

EXITL 

IKJEFFIE 

FIB Installation Exit Parameter List 

SUBMIT 

IKJEFF09 (create) 
IKJEFF10 (alter) 

FFB2 

IKJEFFB2 

FIB Module's Parameter List 
from SVC 100 

SUBMIT 

IKJEFF04 (create) 

FFIB 

IKJEFFIB 

Parameter List to SVC 100 

CANCEL/STATUS 

OPERATOR 

OUTPUT 

PROFILE 

SUBMIT 

IKJEFF56 (create) 
IKJEE100 (create) 
IKJCT466 (create) 
IKJEFT82 (create) 
IKJEFF01 (create) 

GFPARMS 

IKJEFFGF 

GNRLFAILand VSAMFAIL 
(IKJEFF19) Parameter List 

EXEC 

OUTPUT 

SUBMIT 

IKJCT430 (create) 
IKJCT431 (create) 
IKJCT432 (create) 
IKJCT467 (create) 
IKJEFF05 (create) 
IKJEFFIE (create) 

GTPB 

IKJGTPB 

GETLINE Farm Block 

EXEC 

LINK/LOADGO 

OPERATOR 

IKJCT430 (create) 
AKJLKMSG (create) 
IKJEE150 (create) 
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Acronym 

Macro 

Common Name 

Command Processor 

Module/Access 

HISTORY 

IKJEFFHT 

SUBMIT Internal History Table 

SUBMIT 

IKJEFF04 (create) 
IKJEFF05 (alter) 
IKJEFF07 (alter) 
IKJEFF08 (alter) 
IKJEFF09 (alter) 
IKJEFF13 (alter) 
IKJEFF15 (alter) 
IKJEFF20 (alter) 

IKJWHEN 

IKJWHEN 

WHEN Common Data Area 

WHEN/END 

IKJEFE11 (create) 
IKJEFE15 (alter) 

IOPL 

IKJIOPL 

I/O Service Routine Parameter List 

ATTRIB 

IKJEFATT (create) 




CALL 

IKJEFGOO (create) 




EXEC 

IKJCT430 (create) 




FREE 

IKJEFD20 (create) 




HELP 

IKJEFH01 (create) 




LINK/LOADGO 

AKJLKLOli (create) 




LISTBC 

IKJEES70 (create) 




OPERATOR 

IKJEE100 (create) 
IKJEE150 (create) 
IKJEE1A0 (create) 




OUTPUT 

IKJCT460 (create) 
IKJCT466 (create) 
IKJCT467 (create) 
IKJCT469 (create) 
IKJCT472 (create) 




PROFILE 

IKJEFT82 (create) 




PROTECT 

IKJEHPRO (create) 




RENAME 

IKJEHREN (create) 




RUN 

IKJEFROO (create) 




SEND 

IKJEES10 (create) 




SUBMIT 

IKJEFF02 (create) 




TERMINAL 

IKJEFT80 (create) 




WHEN/END 

IKJEFE11 (create) 
IKJEFE1S (create) 

LSD 

IKJLSD 

List Source Descriptor 

EXEC 

IKJCT431 (create) 




RUN 

IKJEFROO (create) 




WHEN/END 

IKJEFE11 (create) 
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Acronym 


Macro 


Common Name 


Command Processor 


Module/Access 


MSGTABLE 

IKJEFFMT 

Message Issuer (IKJEFF02) 

ALLOCATE 

IKJEFD30 (create) 



Parameter List 

CANCEL/STATUS 

IKJEFD34 (alter) 
IKJEF03S (alter) 
IKJEFD36 (alter) 
IKJEFD37 (alter) 
IKJEFF49 (alter) 
IKJEFF50 (create) 
IKJEFF51 (alter) 
IKJEFF52 (alter) 
IKJEFFS4 (alter) 
IKJEFF56 (create) 
IKJEFF57 (create) 




EXEC 

IKJCT430 (create) 
IKJCT431 (create) 
IKJCT432 (create) 




HELP 

IKJEFH01 (create) 
IKJEFH02 (alter) 
IKJEFH03 (elter) 




SUBMIT 

IKJEFF01 (create) 
IKJEFF02 (alter) 
IKJEFF04 (create) 
IKJEFF05 (alter) 
IKJEFF08 (elter) 
IKJEFF09 (alter) 
IKJEFF13 (alter) 
IKJEFF15 (alter) 
IKJEFF16 (alter) 
IKJEFF19 (create) 
IKJEFF20 (alter) 

OLDMAP 

IKJOLD 

Output Line Descriptor 

CALL 

IKJEFGOO (create) 




OUTPUT 

IKJCT467 (create) 
IKJCT472 (create) 




RUN 

IKJEFROO (create) 




SUBMIT 

IKJEFF02 (create) 




WHEN/END 

IKJEFF15 (create) 

OUTCOMTB 

IKJOCMTB 

Output Communications Table 

OUTPUT 

IKJCT460 (alter) 
IKJCT462 (alter) 
IKJCT463 (alter) 
IKJCT464 (alter) 
IKJCT466 (create) 
IKJCT467 (alter) 
IKJCT469 (create) 
IKJCT470 (alter) 
IKJCT471 (alter) 
IKJCT472 (alter) 
IKJCT473 (alter) 

PAPL 

IKJPPL 

Parse Parameter List 

ALLOCATE 

IKJEFD30 (create) 
IKJEF037 (create) 




ATTRIB 

IKJEFATT (create) 




CALL 

IKJEFGOO (create) 




CANCEL/STATUS 

IKJEFFSO (create) 
IKJEFFS7 (create) 




EXEC 

IKJCT430 (create) 
IKJCT431 (create) 




FREE 

IKJEFD20 (create) 




HELP 

IKJEFH01 (create) 




LINK/LOADGO 

AKJLKL01 (create) 




LISTALC 

IKJEHAL1 (create) 




LISTBC 

IKJEES70 (create) 




LISTDS 

IKJEHOS1 (create) 
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Acronym 

Macro 

Common Name 

Command Processor 

Module/Access 

PAPL (Continued) 



OUTPUT 

IKJCT463 (create) 
IKJCT469 (create) 




PROFILE 

IKJEFT82 (create) 




PROTECT 

IKJEHPRO (create) 




RENAME 

IKJEHREN (create) 




RUN 

IKJEFROO (create) 




SEND 

IKJEES10 (create) 




SUBMIT 

IKJEFF04 (create) 




TERMINAL 

IKJEFT80 (create) 




WHEN/END 

IKJEFE11 (create) 

PARML 

IKJEFFIE 

FIB Installation Exit Parameter List 

CANCEL/STATUS 

IKJEFFS1 (create) 
IKJEFF53 (alter) 




OUTPUT 

1KJCT469 (create) 

PARMLIST 

IKJEFFPT 

CANCEL/STATUS Internal 

CANCEL/STATUS 

IKJEFF50 (create) 



Parameter List 


IKJEFF51 (alter) 
IKJEFF52 (alter) 
IKJEFF54 (alter) 
IKJEFF57 (create) 

PGPB 

IKJPGPB 

PUTGET Parameter Block 

LINK/LOADGO 

AKJLKMSG (create) 




OPERATOR 

IKJEE100 (create) 




OUTPUT 

IKJCT467 (create) 




SUBMIT 

IKJEFF02 (create) 

PTPB 

IKJPTPB 

PUTLINE Parm Block 

OPERATOR 

IKJEE100 (create) 
IKJEE150 (create) 
IKJEE1AO (create) 




SUBMIT 

IKJEFF02 (create) 




TERMINAL 

IKJEFT80 (create) 




WHEN/END 

IKJEFE15 (create) 

RPL 

IFGRPL 

VSAM Request Parameter List 

OUTPUT 

IKJCT462 (create) 
IKJCT470 (alter) 




SUBMIT 

IKJEFF05 (alter) 
IKJEFF15 (create) 

SDWA 

IHASDWA 

System Diagnostic Work Area 

OUTPUT 

IKJCT460 (alter) 




SUBMIT 

IKJEFF02 (alter) 

SNTAB 

IKJEXEC 

Symbolic Name Table 

EXEC 

IKJCT431 (create) 
IKJCT432 (alter) 

SSOB 

IEFJSSOB 

Subsystem Options Block 

CANCEL/STATUS 

IKJEFF49 (create) 
IKJEFF52 (create) 
IKJEFF54 (create) 




OUTPUT 

IKJCT462 (alter) 
IKJCT464 (alter) 
IKJCT469 (create) 

STPB 

IKJSTPB 

Stack Parameter Block 

ATTRIB 

IKJEFATT (create) 




CALL 

IKJEFGOO (create) 




CANCEL/STATUS 

IKJEFF56 (create) 




EXEC 

IKJCT430 (create) 




HELP 

IKJEFH01 (create) 




LINK/LOADGO 

AKJLKL02 (create) 




LISTBC 

IKJEES70 (create) 




OPERATOR 

IKJEE100 (create) 
IKJEE150 (create) 




OUTPUT 

IKJCT466 (create) 
IKJCT472 (create) 
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Acronym 

Macro 

Common Name 

Command Processor 

Module/Access 

STPB (Continued) 



PROTECT 

IKJEHPRO (create) 




RENAME 

IKJEHREN (create) 




RUN 

IKJEFROO (create) 




SEND 

IKJEES10 (create) 




SUBMIT 

IKJEFF01 (create) 




TERMINAL 

IKJEFT80 (create) 




WHEN/END 

IKJEFE11 (create) 

STPL 

IKJSTPL 

Stack Parameter List 

ALLOCATE 

IKJEFD30 (create) 




ATTRIB 

IKJEFATT (create) 




CALL 

IKJEFROO (create) 




CANCEL/STATUS 

IKJEFF56 (create) 




EXEC 

IKJCT430 (create) 




HELP 

IKJEFH01 (create) 




LINK/LOADGO 

AKJLKL02 (create) 
AKJLKMSG (create) 




OUTPUT 

IKJCT460 (create) 
IKJCT466 (create) 
IKJCT467 (create) 
IKJCT469 (create) 
IKJCT472 (create) 




RUN 

IKJEFROO (create) 




SUBMIT 

IKJEFF01 (create) 




WHEN/END 

IKJEFE11 (create) 

SVTAB 

IKJEXEC 

Symbolic Value Table 

EXEC 

IKJCT431 (create) 

SWAEPA 

IEFZB605 

SWA Manager Parameter List 

SUBMIT 

IKJEFF04 (create) 

S99RB 

IEFZB4D0 

Dynamic Allocation Request Block 

ALLOCATE 

IKJEF030 (create) 
IKJEF032 (alter) 
IKJEFD34 (alter) 
IKJEFD36 (alter) 




ATTRIB 

IKJEFATT (create) 




FREE 

IKJEFD20 (create) 




OUTPUT 

IKJCT462 (create) 
IKJCT464 (create) 




SUBMIT 

IKJEFF15 (create) 

TCB 

IKJTCB 

Task Control Block 

OUTPUT 

IKJCT463 (alter) 

UPT 

IKJUPT 

User Profile Table 

PROFILE 

IKJEFT82 (alter) 

WPL 

IEZWPL 

WT 0/WTO R /M LWTO/WTP 

Parameter List 

SUBMIT 

IKJEFF02 (create) 

ZB831 

IEFZB831 

GENTRANS Parameter List 

ALLOCATE 

IKJEFD30 (create) 
IKJEFD32 (alter) 
IKJEFD34 (alter) 




ATTRIB 

IKJEFATT (create) 




FREE 

IKJEFD20 (create) 


Data Aiea Usage 
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LOGON Scheduling 


Started Task Control (STC), passes control to 
LOGON Initialization, ikjefla. Here, the various 
control blocks required for LOGON and the 
terminal session are initialized, the estae recovery 
routine, IKJEFLS, is established. Master Scheduler 
JCL, MSTRJCL, is searched to ensure that SYSLBC, 
System Broadcast Dataset, and SYSUADS, System 
User Attribute Dataset, are available to LOGON 
and the subsequent terminal session, and then 
LOGON Scheduler, IKJEFLB, is called. 

IKJEFLB receives control from IKJEFLA during a 
LOGON, and receives control from the Job 
Scheduling Subroutine, JSS, during a re-LOGON and 
a LOGOFF. IKJEFLB invokes the LOGON Prompting 
Monitor, IKJEFLC, and then waits for notification 
to either continue with the LOGON by passing 
control to JSS, or in the case of a LOGOFF, IKJEFLB 
will terminate and pass control back to STC. 

IKJEFLC passes control to the LOGOFF 
processor, IKJEFLL, in the case of a LOGOFF or a 
re-LOGON. Then IKJEFLC passes control to LOGON 
Verification, IKJEFLE, who parses the command to 
obtain the LOGON data and verify this data against 


the UADS, User Attribute Dataset. In the case of a 
LOGOFF, IKJEFLC, notifies IKJEFLB that LOGON 
should terminate and then IKJEFLC terminates. For 
a LOGON or a re-LOGON, IKJEFLC notifies IKJEFLB 
that it should pass control to JSS and then IKJEFLC 
passes control to IKJEFLH, the routine that invokes 
LISTBC, List Broadcast Dataset. 

ikjeflb passes control to JSS for the LOGON or 
the re-LOGON, and JSS eventually passes control to 
the Pre-TMP Exit, IKJEFU. IKJEFU notifies 
IKJEFLH that once LISTBC has completed, IKJEFLH 
and then IKJEFLC should terminate. After IKJEFU 
terminates, the TMP is invoked for the users 
terminal session. 

When a LOGON command, referred to as 
re-LOGON, or a LOGOFF command is entered, the 
TMP terminates. JSS then passes control to the 
Post-TMP Exit, ikjeflk, for some housekeeping. 
After JSS has completed its work it passes control 
to IKJEFLB who intum invokes IKJEFLC to handle 
the LOGOFF or the re-LOGON. 
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Figure 1. LOGON Scheduling Module Flow (Part 1 of 2) 
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Figure 2. LOGON Scheduling Control Block Overview 
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Diagram 23.1 LOGON Initialization (IKJEFLA) (Part 1 of 2) 
Input 


From STC for initial 
LOGON (IEEPRWI2) p rocess 



Output 


LOGON Initialization 

1 Perform VTIOC initialization 
if the LOGON request was 
made to TSO/VTAM. 

2 Check that the required data 
sets are defined: 

• SYS1.UADS 

• SYS1 .BRODCAST 

Missing 


Missing 



Set up the ESTAE. 

ESTAE error messages: 
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• IKJ608I for operator. 


4 Obtain and initialize the 
control blocks for LOGON. 
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Diagram 23.1 LOGON Initialization (1KJEFLA) (Part 2 of 2) 

Extended Description Module 

LOGON initialization receives control from started task con- IKJEFLA 
trol (STC) to process an initial LOGON command from a 
terminal. The initialization functions are bypassed for a 
LOGOFF or reLOGON. 

1 IKTXINIT initializes VTAM control blocks and the IKTXINIT 
TVWA, and transfers control (OPNDST PASS) of 

the terminal user's address space. An OPNDST RPL exit 
is then dispatched by VTAM to verify that the OPNDST 
was successful. 

2 Two TSO data sets-SYSt .UADS and IKJEFLA 

SYS1 .BRODCAST-must have been defined by 

master scheduler's JCL (MSTRJCL member of 
SYS1.LINKLIB). LOGON initialization checks for these 
data sets by searching the master scheduler's TIOT for the 
DD names SYSUADS and SYSLBC. If either of the names is 
missing, error messages are issued and LOGON is 
terminated. 

3 IKJEFLS is used as the ESTAE routine to protect IKJEFLA 
andIKJEFLB. 

4 LOGON initialization creates the control blocks that IKJEFLA 
contain LOGON information needed by the various 

LOGON routines. LOGON initialization turns on the initial- 
LOGON bit (LWAILGN) to indicate that this is the first 
LOGON command to be processed for the current address 
space. 


Label 
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Diagram 23.2 LOGON Scheduling (IKJEFLB) (Part 1 of 2) 


From LOGON initialization (IKJEFLA) for initial LOGON 
or from initiator for LOGOFF or re-LOGON (IEF9D161). 



Output 

















Method of Operation 167 


Diagram 23.2 LOGON Scheduling (IKJEFLB) (Part 2 of 2) 


Extended Description 

LOGON scheduling receives control from LOGON initializa¬ 
tion or from the initiator at the end of the terminal session 
(for LOGOFF or re-LOGON). The new terminal session that 
is scheduled following a re-LOGON operates in the same 
address space as the initial terminal session. 

LOGON scheduling invokes the job scheduling subroutine. 
This subroutine interprets the JCL card images that define 
the terminal session and attaches the terminal monitor pro¬ 
gram (TMP), which processes commands from the terminal. 
The TMP remains active until it intercepts a LOGOFF or a 
re-LOGON command from the terminal. At that time, the 
TMP terminates and the initiator passes control back to 
LOGON scheduling to process the command. 

1 Upon receiving control from STC fora LOGOFF or 
re-LOGON, LOGON scheduling ensures that the 
LOGON monitor has already terminated. If the monitor 
is yet active, LOGON scheduling notifies the monitor 
(ILWASECB-post code 20) to terminate. Once the 
monitor has terminated (LWAPECB-post code 24} 

LOGON scheduling detaches it and sets the attach ECB 
(LWAAECB) to zero. LOGON scheduling then performs 
the attach of the LOGON monitor (Step 2) as usual. 

If the LOGON monitor posts LWAPECB with an invalid 
post code (other than 16 and 24), LOGON scheduling 
terminates as follows: 

• Detaches the LOGON monitor. 

• Cancels the ESTAE environment. 

• Places the address of the ASCB in register 1. 

• Returns to STC (IEEPRTN) for CSCB clean-up. 

But, if the LOGON monitor has caused an ABEND and 
recovery is to be attempted (LWABEND-1), LOGON 
scheduling does not terminate; it reissues the ATTACH 
of the LOGON monitor (returns to Step 2). 


Module Label Extended Description Module Label 

2 LOGON scheduling handles the initial LOGON, a IKJEFLB 

LOGOFF, or a re-LOGON. First, it issues an ATTACH 
macro instruction to invoke the LOGON monitor (see Dia¬ 
gram “LOGON Monitor"). The monitor routine executes 
until it requires a function that LOGON scheduling 
performs. At that time, the monitor notifies LOGON 
scheduling via the LOGON monitor ECB (LWAPECB). 


IKJEFLB 


IKJEFLB WAITUST 


BEXIT 


LCRESTRT 


3 When notified by the LOGON monitor, LOGON IKJEFLB WAITLIST 

scheduling performs one of two functions; the 
function performed is determined by the post code located 
in the monitor's ECB: (LWAPECB). 


post 

function performed by 


code 

LOGON scheduling 


16 

Schedules a terminal session as follows: 

IKJEFLB 


• Notifies the LOGON monitor (LWASECB—post 
code 16) to invoke the LOGON information 
routine IKJEFLH. 

• Creates the job scheduling option list (JSOL) 
and chains it to the JSEL. The JSOL contains 
option flags that affect the scheduling of this 
terminal session. 

• Moves the JCL card image chain (created by 
either the LOGON monitor or the preprompt 
exit) from subpooi 1 to subpooi 253. 

• Invokes the initiator routine IEESB605 to 
schedule the terminal session. 

24 Terminates LOGON scheduling as follows (per- IKJEFLB ENDJOB 

formed following a LOGOFF command): 

• Notifies the LOGON monitor to terminate 
(LWASECB—post code 24). 

• Issues a DETACH macro instruction for the 
LOGON monitor. 

a Cancels the ESTAE environment protecting 
LOGON scheduling. 

• Yransfers control to STC routine IEEPRTN 
for CSCB clean-up. 

4 VTIOC logoff processing is performed by IKTLOGFF. IKTLOGFF 
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Diagram 23.3 LOGON Initialization and Scheduling Recovery Routine (IKJEFLS) (Part 1 of 2) 


From ABEND processing for either 
LOGON initialization (IKJEFLA) or 
LOGON scheduling (IKJEFLB) 





Diagram 23.3 LOGON Initialization and Scheduling Recovery Routine (IKJEFLS) (Part 2 of 2) 


Extended Description Module 

LOGON Initialization creates an ESTAE environment IKJEFLA 

that handles abends that can occur during initialization 

and scheduling. 

1 Message IKJ6011 is sent to the operator and message IKJEFLS 
IKJ56452I is sent to the terminal. 

2 Dequeue from the user-id and detach the LOGON 
MONITOR. (The LWAPTID is the LOGON monitor 

TCB pointer.) 

3 If the user was in the RACF environment, IKJEFLS 
issues the RAC I NIT macro to delete the security 

related control blocks. 

4 Obtain a dump for a program check or PSW restart. 

5 If not a recursive abend, then indicate "RETRY" in 
the SDWA with the retry routine, IKJEFLS. 

6 Return to ABEND processing (IKJEFLS1) to 
possibly schedule a retry (see step 4). 

7 Cancel the ESTAE environment. IKJEFLS1 

8 Transfer control to started task control, IEEPRTN, 
by using XCTL. 


Label 
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Diagram 23.4 LOGON Monitor (IKJEFLC) (Part 1 of 4) 


From LOGON 
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Diagram 23.4 LOGON Monitor (IKJEFLC) (Part 2 of 4) 

Extended Description Module Label 

The LOGON monitor controls the processing that verifies IKJEFLC 
the LOGON or LOGOFF command, and the processing that 
issues informational and prompting messages to the termi> 
nal. It notifies LOGON scheduling to schedule a terminal 
session or, in the case of a LOGOFF, to terminate the 
LOGON scheduling task. Some of the informational mes¬ 
sages (that is, mail, notices, and LOGON-proceeding mes¬ 
sages) are issued in parallel with the scheduling of the 
terminal session. All LOGON monitor messages are issued 
by the message handler IKJEFLGM. 

1 The LOGON monitor creates the environment control 
table (ECT), which contains information about I/O 
service routines the monitor will use. Also, the monitor sets 
its own storage protection key to 8. This allows the storage 
obtained by the monitor to be referenced by programs not 
executing in privileged state (for example, LISTBC and the 
pre-prompt exit). Finally, the monitor issues a STACK 
macro instruction to define the terminal as the first source 
of input for time-sharing commands. 


IKJEFLC INITWKAR 


STACK 


Extended Description 


Module 


Label 


2 LOGOFF processing updates the terminal user's entry IKJEFLL 
in SYS1.UADS and analyzes the return codes from the 

job scheduling subroutine and from the terminal session. 

LOGOFF processing is not performed for an initial LOGON 
(LWAILGN=1) or for recovery processing (LWABEND=1). 

For more detail, refer to the Diagram LOGOFF Processing. 

3 The LOGON monitor builds a new CSCB that contains IKJEFLC CSCBINIT 

the verb code for the LOGON command. This new 

CSCB replaces the one built for address space creation proc¬ 
essing (START/LOGON/MOUNT) or, if this LOGON is a 
re-LOGON, replaces the CSCB previously created by the 
LOGON monitor. (It is important that LOGON establish 
a full size CSCB for all logons and re-logons before passing 
it to the initiator. The initiator, assuming the full size 
CSCB is passed, frees the second portion and uses only 
the first portion of the CSCB.) 

4 The LOGON monitor issues a STAX macro instruction IKJEFLC TERMINAL 

to establish a routine (IKJEFLG) that receives control 

when the terminal user causes an attention interruption by 
pressing the terminal's attention key. After causing the 
interruption, the terminal user may enter a question mark 
(?) to request second-level messages or may enter a new 
LOGON command to replace the one currently being 
processed. 
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Diagram 23.4 LOGON Monitor (IKJEFLC) (Part 3 of 4) 
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Diagram 23.4 LOGON Monitor (IKJEFLC) (Part 4 of 4) 


Extended Description 


Module Label Extended Description 


Module Label 


5 The LOGON monitor invokes LOGON/LOGOFF veri- IKJEFLE 
fication (IKJEFLE) to scan and parse the LOGON or IKJEFLEA 
LOGOFF command. For a LOGOFF or a re-LOGON, the 
command text is found in the re-LOGON buffer; otherwise, 
the command is obtained from the terminal. LOGON veri¬ 
fication checks the user's authorization and LOGON param¬ 
eters against the user information in SVS1.UADS (user 
attribute data set) and prompts the user to replace invalid 
or missing information. See Diagram "LOGON/LOGOFF 
Verification." 


6 If the user presses the terminal's attention key during IKJEFLC GOTOLE 
LOGON processing, he may re-enter the LOGON 
command. In this case, the LOGON monitor re-invokes 
LOGON verification to analyze the newly-entered com¬ 
mand. The attention interrupt flag is reset to zero to 
indicate that the interrupt has been completely 
processed. 


7 If the system operator cancels the terminal user, if IKJEFLC GOTOLE 
the user has entered a LOGOFF command, or if the 

user has failed to enter a valid LOGON command, the 

LOGON monitor ends the terminal session as follows: 

• Issues an error messages (IKJ56453I) to the IKJEFLGM 

terminal for an operator cancel. 

• Issues a null STAX macro instruction to cancel the IKJEFLC 

LOGON attention exit. 

• Frees the environment control table (ECT). 

• Notifies LOGON scheduling to terminate (LWAPECB— 
post code 24). 

• Waits for notification from LOGON scheduling to termi¬ 
nate (LWASECB—post code 24). 

• Returns to the operating system via SVC 3. 

8 • After LOGON verification has processed a valid IKJEFLC 

LOGON command, the LOGON monitor notifies 
LOGON scheduling to schedule the terminal session 
(LWAPECB—post code 16). LOGON scheduling invokes 
the job scheduling subroutine of the initiator which 
attaches the terminal monitor program (TMP). 

•When LOGON scheduling is ready to invoke the job sched¬ 
uling subroutine, it notifies the LOGON monitor to con¬ 
tinue its operation. (LWASECB-post code 16). At that 


time, the LOGON monitor calls the LOGON information 

routine, allowing it to execute in parallel with the sched- IKJEFLH 

uling of the terminal session. The information routine 

attaches the LISTBC processor to issue mail and notices 

to the terminal user. Then the routine sets the timer to 

expire at the interval specified in the module IKJEFLPO. 

The LOGON-proceeding message is issued repeatedly to 
the terminal at this timed interval until the initiator is 
ready to attach the TMP. At that time, the pre-TMP exit 
(IKJEFLJ) notifies the information routine (LWASECB— 
post code 20) that the LOGON scheduling process is com¬ 
plete. The routine then cancels the timer and notifies the 
pre-TMP exit that LISTBC processing is completed 
(LWAPECB—post code 20). 

Finally, the LOGON monitor terminates as follows: 

—Issues a null STAX macro instruction to cancel the IKJEFLC CLEANUP 

LOGON attention exit. (Pressing the terminal attention 
key no longer has any effect on LOGON processing.) 

—Deletes the environment control table (ECT). 

—Returns to the operating system via SVC 3. 

Error Processing 

LOGON scheduling establishes the LOGON monitor's 
ESTAI environment via a parameter on the ATTACH macro 
instruction. Since the LISTBC command processor is 
attached by the LOGON monitor task, it too is protected 
by the ESTAI environment. If the LOGON monitor task or 
the LISTBC task terminates abnormally, the ESTAI routine 
IKJEFLGB receives control. See Diagram "LOGON Monitor 
Recovery. 

The LOGON monitor issues the STACK macro instruction 
to initialize the terminal as the source of input for com¬ 
mands. If this process encounters any errors, the LOGON 
monitor invokes the message handler to issue appropriate IKJEFLGM 
error messages to the terminal (IKJ56454I) or to the 
operator (IKJ608I). Also, the monitor turns on the 
LOGON-termination bit (LWADISC). 

The LOGON monitor issues the MGCR macro instruction 
to chain a new CSCB. If this routine passes back a non¬ 
zero return code, the monitor issues error messages 
(IKJ56454I) to the terminal via the message handler. If 
the cancel bit is on (CHDISC field of the CSCB), a session- 
cancelled message (IKJ56453I) is issued by the message 
handler. In any case, the monitor ends the terminal 
session as in Step 6 of this diagram. 


IKJEFLC 

IKJEFLGM 


IKJEFLB 

IKJEFLGB 

IKJEFLC 
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Diagram 23.5 LOGOFF Processing (IKJEFLL) (Part I of 2) 


From LOGON 
monitor (IKJEFLC), 

Input step 2 Processing Output 
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Diagram 23.5 LOGOFF Processing (1KJEFLL) (Part 2 of 2) 

Extended Description Module Label 

LOGOFF processing updates the terminal user's entry in IKJEFLL 
SVS1 .UADS and analyzes the return codes from the job 
scheduling subroutine (initiator) and from the last step of 
the terminal session. LOGOFF processing is performed for 
a LOGOFF command and for a re-LOGON. It is not per¬ 
formed for an initial LOGON (LWAILGN=1) or for recovery 
processing (LWABEND=1). 

1 Using the PROFILE command, the terminal user is IKJEFLL UPDTUADS 

able to change the attributes associated with his user 

identification. These attributes are supplied by a member of 
SYS1 .UADS. LOGOFF processing must update this member 
at the end of the terminal session to reflect the changes 
made by the user. If the installation has supplied all of the 
LOGON information normally supplied by SYS1.UADS 
(LWANOPR=1 and LWANUAD^I), it is not necessary to 
update the user's member of SYS1 .UADS. 

If any of the three bits LWAATRt, LWAATR2, and 
LWABUPT are off, the corresponding information (system 
attributes, user attributes, and the user profile, respectively) 
was not supplied by the installation. The information not 
supplied by the installation (and, therefore, subject to 
changes made via the PROFILE command) is updated by 
LOGOFF processing. 

If LWAACCT^O, the user's accounting information in 
SYS1 .UADS is also updated. Accounting information con¬ 
sists of the following items: the length of the terminal ses¬ 
sion, the amount of processor time used, and the number 
of service units used. 

2 LOGOFF processing must release the user identifica- IKJEFLL DEQUSER 
tion resource that was obtained during LOGON veri¬ 
fication. LOGOFF issues the DEQ macro instruction. If 

the three bits LWANOPR, LWANUAD, and LWANONQ 
are turned off, an ENQ was never issued on the user 
identification. In this case, a DEQ is not necessary. 

3 If the user was in the RACF environment, IKJEFLL 
issues the RACINIT macro to delete the security 

related control blocks. 


Extended Description 

4 If the job scheduling subroutine encountered an error 
(LWARTCD^O), LOGOFF processing examines the 

field JSXLRCXT to determine what part of job scheduling 
failed. Next, it examines the fields JSXLRCOD and 
LWARCDE to determine the nature of the error. Finally, 

LOGOFF informs the message handler (IKJEFLGM) to 
build the appropriate second-level message (IKJ56457I to 
terminal). 

5 LOGOFF analyzes the return code from the last step 
of the terminal session (LWARTCD) and builds an 

appropriate second-level message (IKJ56470I to terminal) 
via the message handler. If the code is a system return 
code, the re-LOGON buffer is considered to be unusable 
and is filled with blanks. In this case, LOGON/LOGOFF 
verification must prompt the user for a LOGON or LOGOFF 
command. (See Diagram LOGON/LOGOFF Verification.) 

The exception is a system return code that was generated 
by attention exit processing (indicated by LWATNBT-1). 

The attention exit posts the cancel ECB in the CSCB with 
a system code of 622, so that the job scheduling subroutine 
terminates in the same way as for an operator cancel. In this 
case, there is no reason why the re-LOGON buffer would be 
unusable; therefore, the contents of the buffer are retained. 

g LOGOFF calls the LOGON time and date processor IKJEFLL 
(IKJEFLPA) to set up the date and time-of-day 
buffers for the logged-off message. Then LOGOFF invokes 
the message handler to issue the logged-off message to the 
terminal (IKJ56470I). 

Error Processing 

If, at any time, LOGOFF processing encounters an I/O IKJEFLL 

error, an OPEN error, or a service routine error, it issues an 
error message (IKJ56454!) to the terminal via the message 
handler and turns on the LOGON-termination bit. 


Module 

IKJEFLL 


IKJEFLL 


Lab8l 


LGMSETUP 
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Diagram 23.6 LOGON/LOCOFF Verification (IKJEFLE and IKJEFLES) (Part 1 of 4) 
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Diagram 23.6 LOGON/LOGOFF Verification (IKJEFLE and IKJEFLES) (Part 2 of 4) 

Extended Description Module Label Extended Description Module Label 


LOGON/LOGOFF verification scans the LOGON or IKJEFLE 

LOGOFF command and checks the LOGON parameters 

against the information in the user's member of the 

SYS1.UADS data set. As the verification process is checking 

LOGON parameters, it records valid LOGON information in 

various control blocks. An optional installation exit 

(pre-prompt exit IKJEFLD) can replace any part or all of the 

verification processing. If the LOGON is valid, JCL card 

images (JOB and EXEC) that define the terminal session 

are built. 

When SUBMIT enters LOGON verification, the LOGON 
command is parsed and the results are returned to SUBMIT 
(IKJEFF08). SUBMIT then builds JCL statements to 
execute commands in the background. The pre-prompt exit 
interface will not be invoked. 

*| VTIOC logon processing is done only for an initial IKTXLOG 

logon to TSO/VTAM, not for a relogon or a logoff. 

2 If the VCON for the installation exit (IKJEFLD) is IKJEFLE GOTOIER 

non zero (indicating an installation exit is present 
and link-edited into the LOGON load module), the 
interface routine IKJEFLI is invoked to initialize a 
parameter list for the exit. (See Diagram LOGON 
Pre-prompt Exit Interface.) The interface does not pass 
control to the pre-prompt exit (IKJEFLD) if the command 
is a LOGOFF or if LOGON is invoked from SUBMIT 


4 LOGON/LOGOFF verification returns to the LOGON IKJEFLE 
monitor if the termination flag is on (LWADISC) or if 
the cancel flag is on (CHDISC). If the pre-prompt exit has 
supplied all the LOGON information and indicates that no 
verification is necessary, the normal verification is bypassed. 

g After the command scan service rout i ne (I K JSC A N) IK J E F LE A 

scans the command for LOGON or LOGOFF, the veri¬ 
fication process continues as follows: 

• If neither command was found, the terminal user is LOGONOFF 

prompted to enter LOGON or LOGOFF and the scan 

is repeated. 

• If the command was a LOGOFF, the verification process 
returns control to the caller, the LOGON monitor. For a 
LOGOFF HOLD (TSBHLDL=1), terminal input/output 
control (TIOC) for TSO/VTAM keeps a line open 

to the terminal. 

If at any time a terminal line is accidentally disconnected 
TIOC or VTIOC retains, for a time specif ied in IKJPRMOO 
of SYS1.PARMLIB, the control blocks and the address 
space used for the current terminal session. If the terminal 
user then enters a LOGON RECONNECT command with 
the same user identification as the retained address space, 

TIOC or VTIOC reinstates the user in that address space. 

• If the command was a LOGON, the verification process 
continues (see Step 5). 


3 The initial-LOGON flag is turned off following the IKJEFLE 

first GETLINE macro instruction issued by 
LOGON/LOGOFF verification. Any subsequent LOGON 
command entered by the terminal user for the current 
address space is considered to be a re-LOGON. 
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Diagram 23.6 LOGON/LOGOFF Verification (IKJEFLE and IKJEFLES) (Part 3 of 4) 
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Diagram 23.6 LOGON/LOGOFF Verification (IKJEFLE and IKJEFLES) (Part 4 of 4) 


Extended Description 

g The verification process invokes the parse service 
routine (iKJPARSE) to check the syntax of the 
LOGON command. If the command contains the 
RECONNECT parameter, LOGON determines whether 
the user identification is already assigned to an address 
space (one that TIOC or VTIOC retained following a 
disconnected line). If the user identification has an 
address space assigned to it, R ACF is called to verify 
user and terminal access security and TIOC or VTIOC 
reinstates the user in the retained address space. If 
the user identification has no address space assigned 
to it, the LOGON RECONNECT is rejected. 

7 LOGON verification opens the SYS1.UADS data 
set (user attribute data set) and copies into real 

storage the member associated with the user identification 
on the LOGON command and then ensures that the user 
identification is authorized. The user identification and 
its length are stored in the PSCB (protected step control 
block). Then LOGON issues an ENQ on the user 
identification resource. If the resource has already been 
obtained, LOGON verification reinvokes the pre-prompt 
exit if it exists. The installation can choose to authorize 
the user or to cancel the LOGON process. 

8 The RACINIT macro is issued by IKJEFLE 
causing R ACF to create security related 

control blocks associated with the user identification 
and password. 


Module Label Extended Description Module 

IKJEFLE TSBSRCH g LOGON verification compares the LOGON parameter IKJEFLE 

values with the user information in SYS1.UADS to 
check for the validity of the LOGON parameters. If param¬ 
eters are invalid or missing, LOGON verification prompts 
the user for correct parameters. The user's reply is re-parsed 
and verified. Verification checks the user's password, 
account number, procedure name, region size, and perfor¬ 
mance group. The system resources manager checks that the 
group can be used at this time. The job entry subsystem 
verifies that the destination choice (DEST parameter) 
defines a valid device for SYSOUT data sets. 

If the user is RACF defined, then password verification 
IKJEFLE OPEN with the UADS is bypassed. Both the password and 

group identification are verified by RACF. The 
remaining LOGON data is verified against the UADS. 

10 If LWAJJCL= I, the pre-prompt exit has supplied the IKJEFLEA 
JCL card images that define the terminal session. 

Otherwise, LOGON processing constructs the JCL card 
images as follows: 

//userid JOB 'account REGION=region size 
//procname EXEC procname,PERFORM=performance 
group 

where the userid (user identification), account #, region 
size, and performance group are obtained form the LOGON 
parameters, from the user's member of SYS1.UADS, or 
from the pre-prompt exit. 

Error Processing 

If the LOGON is an initial LOGON (LWAILGN=I), and the IKJEFLE 
address of the terminal input line is zero, LOGON verifica¬ 
tion obtains a line from the terminal (issues a GETLINE for 
the terminal). LOGON verification is part of the LOGON 
monitor task and, therefore, is protected by the monitor's 
ESTAI environment in case of an ABEND. 


Label 


BU1LDJCL 


IKJEFLGB 
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The following data areas contain TSO user information supplied by the SYS1.UADS 
data set, by the installation, or by the LOGON parameters: 


Data Area Ns me 

Field Name 

Contents 

ASCB 

ASCBJBNS 

Address of user identification. 

CSCB 

CHCLS 

Procedure name for this LOGON. 


CHKEY 

User identification. 

ECT 

ECT 

Flags that control LISTBC processing. 

EXEC card image 


Procedure name for this LOGON. 

Performance group number. 

JOB card image 


Account number. 

Region size. 

JSEL 

JSEL 

Address of JCL card images. 

JSOL 

JSOLDEST 

Default destination for SYSOUT data sets. 

LWA 

LWACTLS 

Control switches set by the installation exit. 


LWADEST2 

Default destination for SYSOUT data sets. 


LWAACCT 

Offset of accounting information in SYS1 .UADS. 


LWATCPU 

Total CPU time used. 


LWATSRU 

Total service units used. 


LWATCON 

Total time connected to the system. 


LWARTCD 

Completion code for the last step of the terminal session. 

PSCB 

PSCBUSER 

User identification. 


PSCBUSRL 

Length of user identification. 


PSCBATR1 

System attributes: switches that control use of OPERATOR, ACCOUNT, and SUBMIT 
commands, that indicate volume and mount authorization, and that define the attention 
key as the line-delete key. 


PSCBATR2 

User attributes — reserved for installation use. 


PSC8GPNM 

Generic unit name. 


PSCBRSZ 

Region size. 

TSB 

TSBPSWD 

Password. 

UPT 

UPTSWS 

Environmental switches. 


UPTNPRM 

No-prompting switch. 


UPTMID 

Switch that controls printing of message identifiers. 


UPTNCOM 

Switch that controls SEND command authorization. 


UPTPAUS 

Switch that indicates whether to pause for a 


UPTALD 

Switch that defines the attention key as the line-deleie key. 


UPTMODE 

Switch that controls printing of mode messages. 


UPTWTP 

Switch that allows the user to receive WTP messages. 


UPTCDEL 

Character-delete character. 


UPTLDEL 

Line-delete character. 


UPTPREFX 

Data set name prefix. 


UPTPREFL 

Length of data set name prefix. 


Figure 3. Data Areas Containing LOGON User Information 
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Diagram 23.7 LOGON Pre-prompt Exit Interface (IKJEFLI) (Part 1 of 2) 


From LOGON/LOGOFF 
verification (IKJEFLE), 
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Diagram. 23.7 LOGON Pre-prompt Exit Interface (IKJEFLI) (Part 2 of 2) 


Extended Description Module Label 

The LOGON pre-prompt exit interface invokes the LOGON IKJEFLI 
pre-prompt exit which is a routine written by the installa¬ 
tion. The pre-prompt exit can provide LOGON information 
on behalf of the terminal user, verify the user's LOGON 
command, and collect accounting information. Any user 
information provided by the pre-prompt exit overrides the 
information stored in the user's member of the SYS1 .UADS 
data set. In fact, an installation can, if it wishes, replace all 
of the normal LOGON verification processing. For direc- 
tions on writing the exit routine, refer to the topic. Writing 
a LOGON Pre-prompt Exit in the publication OS/VS2 
System Programming Library: TSO, GC28-0629. 

1 The pre-prompt exit interface uses the command scan IKJEFLI 
service routine OKJSCAN) to determine if the com¬ 
mand is a LOGON or LOGOFF. If it is a LOGOFF, the 
interface does not invoke the pre-prompt exit. Instead, it 
returns to its caller. 


2 The interface builds and passes to the pre-prompt exit LI0100 

a parameter list that defines those parameters the pre- 
prompt exit needs to verify the LOGON command and to 
provide LOGON information. Most of the addresses in the 
parameter list point to two-word descriptors. The first word 
of the descriptor contains the address of the actual param¬ 
eter, The second word contains both the maximum length 
for the parameter and the actual length. 


Extended Description 


Module 


3 After invoking the pre-prompt exit, the interface rou- IKJEFLI 
tine checks the parameter list for validity: 

• Ensures the parameter list is unchanged. 

• Ensures the parameter descriptors are unchanged, except 
for the field containing the actual length of the parameter. 

• Checks that the actual length of each parameter does not 
exceed the maximum length for the parameter. 

If errors are discovered, the interface invokes the message 
handler (IKJEFLGM) to issue error messages and terminates 
the terminal session (LWADISC=1). If no errors are found, 
the interface copies into the appropriate control blocks all 
user information provided by the pre-prompt exit. A con¬ 
trol field in the LOGON work area (LWACTLS) contains 
bits that indicate what information the installation has 
provided. 

4 If the pre-prompt exit has specified in the LOGON IKJEFLI 

work area that the terminal user is not to be prompted 

(LWANOPR=1), that all LOGON information has been veri¬ 
fied (LWANUAD=1), and that an ENQ is to be issued 
(LWANONQ=0), then the interface issues an ENQ on the 
user identification resource. If the resource is already in use, 
the pre-prompt exit is re-invoked to determine a course of 
action. The installation may choose to allow more than one 
user with the same user identification to be logged-on simul¬ 
taneously (LWANONQ-1). In this case, the interface does 
not issue an ENG on the user identification resource. Or, 
the installation may, instead, choose to terminate the ses¬ 
sion (LWADISC=1). 

Error Processing 

If either the LOGON pre-prompt exit interface (IKJEFLI) IKJEFLGB 
or the pre-prompt exit (IKJEFLD) cause an ABEND, the 
LOGON monitor's ESTAI routine IKJEFLGB is invoked by 
ABEND processing. In certain cases, the ESTAI routine 
schedules a re-attach of the LOGON monitor task. See Dia¬ 
gram, LOGON Monitor Recovery. 


Label 


LI800 
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Diagram 23.8 LOGON Monitor Recovery (1KJEFLGB) (Part 1 of 2) 


From ABEND 
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Diagram 23.8 LOGON Monitor Recovery (IKJEFLGB) (Part 2 of 2) 


Extended Description Module Label 

The LOGON monitor recovery routine receives control from IKJEFLGB 

ABEND processing following the abnormal termination of 

the LOGON monitor task. LOGON monitor recovery is an 

ESTAI routine that was specified on the ATTACH macro 

instruction when the LOGON monitor was attached by the 

LOGON scheduling task. If possible, a retry of the LOGON 

monitor is attempted by informing the LOGON scheduling 

task to re-attach the LOGON monitor (LWABEND = *Y B). 

1 A dump is scheduled if the abnormal termination was IKJEFLGB 
the result of a program check or a PSW restart (an 

external interrupt from the operator). 

2 If the ABEND code represents a user completion code, IKJEFLGB 
then recovery of the LOGON monitor task is not 

attempted. LOGON monitor recovery issues no error mes- 
sages and passes control back to ABEND processing to con¬ 
tinue the abnormal termination. 

3 If the LOGON monitor abnormally terminated during IKJEFLGB PHASE1 
LOGON/LOGOFF verification, recovery of the 

LOGON monitor task is scheduled (LWABEND=1). 

Recovery is not attempted in the following cases: 

• The system or the operator has canceled the terminal 
session (CHDISC=1). 

• The terminal session is scheduled for termination 
(LWADISC=1). 

• Four recoveries have already been attempted 
(LWALPCNT=4). 

• The current ABEND is the same type as the previous one 
(determined by checking bit settings in the LOGON work 
area: fields LWAPSW, LWAPCK. and LWAMCHK). 

LOGON monitor recovery builds and issues appropriate MSG I NIT 

messages to the terminal and to the system operator. One 

set (1KJ56451I for the terminal and IKJ603I for the 

operator) is issued if the LOGON pre-prompt exit terminated 

abnormally (LWAINX1=1). Another set (IKJ56452I for the 

terminal and IKJ601I for the operator) is issued if 

LOGON/LOGOFF verification itself terminated abnormally 

(LWAINX1=0). 


Extended Description 


Module 


Label 


4 If the ABEND occurred after the user's LOGON infor- IKJEFLGB 
mation has be§n processed and the terminal session has 

been scheduled (that is, LWAPHASE=1), recovery may not 

be necessary. If LWAPHASE=1, the ABEND occurred either PHASE2 

during LISTBC command processing or during the issuing of 
the LOGON-proceeding messages (issued by LOGON mod¬ 
ule IKJEFLH). If LISTBC caused the ABEND 
(LWALTCB=1), LOGON monitor recovery issues an error 
message to the terminal (IKJ56406I) and the LISTBC task 
terminates. In this case, the scheduling of the terminal 
session proceeds normally. If the LOGON module IKJEFLH 
caused the ABEND, LOGON monitor recovery does not 
schedule a re-attach of the monitor (LWABEND=0) but does 
issue error messages to the terminal (IKJ56452) and to the 
operator (IKJ601). 

5 LOGON monitor recovery performs exit processing IKJEFLGB 
as follows: 

• Closes the SYS1 .UADS data set using the DCB address CLOSUADS 

in the LOGON work area. If this address is zero, recovery 

does not issue the CLOSE macro instruction. Recovery 
also issues a DEQ on the SYS1 .UADS directory resource. 

• Issues a null STAX macro instruction to cancel the 
attention exit. Pressing the terminal attention key no 
longer has any effect on LOGON processing. 

• Frees the storage allocated to subpools 0,1, and 78. FREECORE 

• If the user was running in the RACF environment, the 
RAC I NIT macro is issued to delete security related 
control blocks. 
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Diagram 23.9 Pre-TMP Exit (IKJEFLJ) (Part 1 of 2) 


From the initiator (IEFSD263) 
before it attaches the terminal 
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Diagram 23.9 Pre-TMP Exit (IKJEFLJ) (Part 2 of 2) 

Extended Description Module Label 

The initiator (IEFSD263) invokes the pre*TMP exit before 

attaching the terminal monitor program (TMP); it invokes 

the post-TMP exit after the TMP terminates. The pre*TMP IKJEFLJ 

exit prepares for the terminal session to begin by notifying 

the LOGON monitor task to terminate. The pre-TMP exit 

has two parts; an entry point name is assigned to each part. 

The first part is invoked before the initiator issues the 
FREEPART macro instruction (pre-FREEPART process¬ 
ing). The second part is invoked following the FREEPART 
(post-FREEPART processing). 


1 This step represents pre-FREEPART processing. It is IKJEFLJ IKJLM1 
performed before the initiator issues the FREEPART 
macro instruction. Since the LOGON monitor task may still 
be active, the data areas it uses must not be deleted (by 
FREEPART) until the task is notified to terminate. 

• Pre-FREEPART processing notifies the LOGON monitor 
task to terminate (LWASECB—post code 20). When the 
monitor task terminates, it notifies pre-FREEPART proc¬ 
essing to continue (LWAPECB— post code 20). See 
LOGON Monitor (IKJEFLC). 


• The System Initiated Cancel (SIC) is notified that 
the TMP was executing when the line dropped or 
the user canceled. SIC will then notify the Post- 
TMP exit to free other users who are waiting on 
this memory. For example, SEND W/WAIT 
option sent to a canceled memory can cause the 
sender to wait forever unless the Post-TMP exit 
frees the sender. 


Extended Description Module 

2 This step represents post-FREEPART processing. It is IKJEFLJ 
performed after the initiator issues the FREEPART 
macro instruction. Post-FREEPART processing now can 
move the UPT and the re-LOGON buffer to subpool 0 
(which is deleted by the FREEPART). 

• Post-FREEPART processing invokes the SWA manager to 
obtain the user's region size from the step control block 
(SCB). The region size is stored in the protected step con¬ 
trol block (PSCB). If the SCT indicates that the terminal 
session is a job'with more than one step, post-FREEPART 
processing passes a non-zero return code back to the initi¬ 
ator, which then terminates the job. The current time of 
day is also stored in the PSCB for later use in computing 
the length of the terminal session. 

• The UPT and the re-LOGON buffer are moved to sub¬ 
pool 0 (a non-protected subpool) so that the command 
processors may alter them during the terminal session. 

The PSCB is moved to subpool 252; the command proc¬ 
essors cannot alter data areas in subpool 252. 


Label 

IKJLJ1 
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Diagram 23.10 Post-TMP Exit (IKJEFLK) (Part 1 of 2) 
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Diagram 23.10 Post-TMP Exit (IKJEFLK) (Fart 2 of 2) 

Extended Description Module 

The initiator (IEFSD263) invokes the post-TMP exit after 
the TMP terminates. The post-TMP exit saves the comple¬ 
tion code from the last step of the terminal session and 
updates the user's accounting information in the LOGON 
work area. Then, the initiator performs termination process¬ 
ing and passes control back to the LOGON scheduling task. 

1 The post-TMP exit moves the UPT and the re-LOGON IKJEFLK 
buffer from subpool 0 to subpool 230 to prevent job 

scheduling from deleting them during job termination. The 
PSCB is.also moved to subpool 230. 

2 The post-TMP exit saves the completion code from the IKJEFLK 
last step of the terminal session, obtaining it from the 

linkage control table (LCT). The completion code is later 
analyzed by LOGOFF processing to determine if the terminal 
session terminated abnormally. See Diagram LOGOFF 
Processing. 

3 The post-TMP exit updates the accounting information IKJEFLK 
in the LOGON work area to account for the system 

resources used during the terminal session that is now 
terminating. 

Error Processing IKJEFLJ,K 

If either the pre-TMP exit or the post-TMP exit causes an 

ABEND, LOGON scheduling's ESTAE routine IKJEFLS 

is invoked by ABEND processing. The function of this 

ESTAE routine is described under Error Processing in the 

diagram LOGON Initialization and Scheduling. 


Label 


IKJLK1 


IKJLK1 
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